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PREFACE 


MERLIN is a "mini" operating system for computer systems based 
on the Motorola MC68000 microprocessor. 

The MERLIN Operating System Documentation is arranged into two 
distinct boolcs. 

The User's Guide is a "concepts and facilities" manual which 
explains the core ideas of MERLIN - its command interpreter, file 
system, and the utility commands that provide a means to get 
started on MERLIN. The User's Guide also contains information 
about the software packages and utilities that run under MERLIN. 
There are descriptions of how to run the compilers, the linker 
and librarian, and a summeiry of £S - the line-oriented editor. 

The Internals Guide is a MERLIN Internal Interface Guide for 
programmers wishing to write software to run under MERLIN - it 
covers topics such as file structures, memory layout, device 
drivers, and other information about MERLIN. 

There are other manuals in addition to these two. The 
additional- manuals are whole, self-contained manuals such as the 
Pascal and FORTRAN reference manuals. These are separate because 
(a) they are large and placing them in the user's Guide would 
make that manual impossibly large, and (b) because they are 
separately priced-products. 
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Chapter 1 
Introduction 


MESLIN is a basic executive program for 63000-based 
microcomputer systems. Its main purpose is to provide an 
operating environment in which users can develop and run software 
applications quickly and easily. MEBLIN's main features include: 

. Single~uaer system - the user has the full power and 
responsiveness of the MC6S000 system available with no 
competition for resources with other users. 

. Fixed and demountable volumes (devices) . 

. Two level file structure. 

. UNIX-like command language with re-direction of input and 
output. 

. Automatic startup command file for initialization. 

. The shell or command interpreter is simply a system command - 
users can develop their own shells to suit their specific 

needs. 

. Assignable device drivers - new device drivers can be 
incorporated without the need for system reconfiguration. 


Users view MEHLIN as composed of several distinct parts: 

. the file system provides a way to store data in named 
collections called files and a way to create, examine, remove, 
copy, and otherwise manipulate such files. 

. the command interpreter, known as "the shell", provides the 
basic means of telling MEBLXN what things it should do. 

. the programming languages provide the means to write new 
software appl'i'c^tiona. MSELIN supports Pascal, FORTRAN, an 
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Assembler/ and a Linker. 

. the utility software suppLias tools to aid in using the 
system. Utilities include an editor for creating and changing 
text files, disk-file manipulation programs and object code 
mangagement programs. 

Users use these basic operating system facilities to generate 
their own applications packages or to do other useful work. 
Thera are many commercially available packages for business and 
scientific use written in languages supported by MERLIN. 

On the surface, MERLIN looks somewhat like UNIX (for users 
familiar with UNIX) , in that MERLIN uses the same command layouts 
and methods to indicate options. MERLIN also uses the same 
notation for describing files. It should be noted, however, that 
MERLIN is not UNIX, and does not have the power and capabilities 
of a full UNIX system. 

This document is intended as an internal interface guide for 
those wishing to write software to run under .MERLIN'S control. 

Internally, MERLIN'S file system is not a proper hierarchical 
file system. The file system in fact is at this time compatible 
with the UCSO FAECAL file system. There were some good reasons 
for doing this, the major one being a portability issue. 


1.1 Overview and Layout of this Guide 


Chapter 2 is a "general information" chapter which describes 
the basic details of MERLIN, discusses the idea of units, and 
describes some of the data structures necessary. 

Chapter 3 is a detailed breakdown of the various system calls 
that MERLIN provides. 

Chapter 4 provides a description on "how to write a device 
driver*. An annotated sample device is provided. 

Chapter 3 is a list of the Pascal types and procedure 
interfaces that are described in narrative form in Chapter 3. 
These Pascal interfaces are there for those who are more 
comfortable in Pascal. 
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General Infocaation 


This Chapter auppliea general information about data structures 
and the means by which software makes MEHLIN system calls. 
Topics covered in this Chapter are: 

. a description of the units that MEELIN supports. 

. data representation. 

. various data structures such as the system communication area. 

. memory layout^ and program environment. 


2.1 Units 


MEELIS, as stated previously, looks somewhat like the OCSO 
Pascal system. MEPLXN knows about several uni ts , that is, 
external devices to or from which data may be transferred. 

Generally speaking, it is only neccessary to be concerned with 
units when using unit input-output - the software layer below 
that o£ file input-output. The unit numbers that meblIH 
currently deals with are as follows: 


Unit Number and Neuae Description 

0 - /noil is a "null” device. It acts as an infinite sink 

or "black hole" when it is written to; when is 
is read from, an end-of-file condition is 
returned. 

1 - /eeoaole is the console, that is, the -keyboard and 

screen, with echo. 
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2 - /systera is the console, that is, the 'Keyboard and 

screen, wj thout echo . 


3 


is user assignable. 


4 - is the boot disk - the disk from which MERLIN 

boots up, and the default disk on which MERLIN 
looks for commands. 


3 - is a user disk. Note that devices 9.. 12 are 

also user disks. 


o - /printer is the printer if one is attached. 


7 - 

/reoin 

is 

line 

the remote 

input 

device , 

such as a serial 

3 - 

/remoat 

is 

(7) 

the remote 
above . 

output 

device , 

corresponding to 

9 . . 

12 

are 

user disks. 




13. . 

20 

are 

user assignable 

devices . 

There may be 


different numbers of user assignable devices in 
different implementations of MERLIN. 


2.2 Data Representations in MERLIN 


This Section describes the way that data is represented 
internally in .MERLIN. 

MERLIN is implemented almost entirely in 68000 Pascal, wit.h a 
small number of lines of assembler code to perform raw' device 
handli.nq . Thus the discussion on data representations and memory 
layout represent the Pascal implementations. These notes are for 
users wishing to interface foreign language implementations to 
t.he Pascal oriented .MERLIN system. 


2.2.1 Characters, Words, and Long Words 

Characters, words, and long words are t.he t.hree basic data 
types. Data elements whic.h occupy words are always aligned on 
word (even byte) boundaries. 
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Characters , or bytes , occupy IS bits if they are not paclcad. 
Paciced characters occupy a byte and are aligned on a byte 
boundary . 

Words occupy two bytes, or 16 bits. Words are the Pascal 
integer data types. Words are always aligned on a two byte 
boundary. words represent . signed integers in the range 
-32768 .. +32767. 

Long Words occupy four bytes, or 32 bits. Long words are 
always aligned on a two byte boundary. Long words are accessible 
in Pascal by the longint data type. Long words represent signed 
integers in the range -2,147,483,648 .. +2,147,483,647. Long 

words are also used to store memory addresses and pointers in 
Pascal. 


2.2.2 Boolean Data Type 

The Pascal implementation has a Boolean data type. A Boolean 
is always represented in a single byte quantity. A value of 0 
(zero) represents false. A value of 1 (one) represents true. No 
other values are valid. When a Boolean value is not an element 
of a packed data structure, a full byte of storage is used to 
facilitate access. 


2.2.3 The NIL Pointer 

As mentioned above, the Pascal implementation uses a long word 
or 32-bit quantity to represent a pointer. One of the important 
pointers is the nil pointer which points to no data element (for 
example, used to indicate the end of a list) . In this 
implementation, nil is represented by the value zero (0) . 


2.2.4 The String Data Type 

Pascal has a dynamic sized string data type similar to that of 
the OCSD Pascal system. A string ■ is a sequence of bytes in 
memory, with the first byte in the string containing the length 
of the string (not including the first byte) . This means that 
the maximum string length is 255 bytes. A string value must be 
aligned on a word boundary. 


2.2. S Packed Array of Character 
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The Packed hrxay of Char(actar) data type is hot the same as 
the length delimited string type described above. Che ?aci<ed 
Array of Character is simply a stream of bytes in memory. Cher a 
is no length field as in the string data type above. As with 
dynamic sized strings, a packed array of character must be 
aligned on a word boundary. 
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2.3 The System Communication Area 


MEHLIN maintains a System Communication Area in RAM. The System 
Communication Area contains global information that is important 
to running programs. Two. of the important items are the 
•lOREStJLT", which is the return code from input-output 
operations, and the start address of the system call jump 
yector. 

The System Communication Axea base address is contained in the 
long word found in absolute location $130. The System 
Communication Area layout is described here. 

lOREStTLT is a word value which contains a result code 

after completion of any input-output. process . 

PR0C5S3 injMBER is a word value, which is the current process 
number. The initial shell is assigned process 
number 0. Zach subsequent process receives an 
incremented process number. 

FKEE HEAP is a long word pointer to the start of the free 

memory available for storage allocation. 

SYSTEM CAU. VECTOR 

is a long word pointer to the start of the 
system call vector. The system call vector is a 
table of jump addresses to the system routines. 
This is described, in mors detail later on. 

is a Ion? word pointer to the initial shell's 

standard output file. SYSXM and SYSOtlT are used 
for court of last resort error messages when the 
Pascal system runs into trouble, for example, 
wheir it runs short: of allocatable storage. 

is a long word pointer to the initial shell's 

standard input fils. 

SYSTEM DEVICE TABI,E 

is a long word pointer to the device table. 

DIRECTORY RAMS is a long word pointer to the currently "logged" 
directory name. 


SYSODT 


SYSIN 
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USER TABLE is a long word pointer to the start address of 

the user oonmand table. 

DATE RECORD is the encoded form of the current date. The 

Data Record occupies one word. 

OVERLAY TABLE ADDRESS 

is a long word value which is the start address 
of the overlay table. This value is only used 
when the running process contains overlays. 
Otherwise it contains a zero (0) . 

NEXT PROCESS HUMBER 

is a word value that the next process number 
will be assigned. 

NUMBER OP PROCESSES 

is a word value representing the number of 
processes currently active (including the first 
level shell} . 

PROCESS TABLE ADDRESS 

is a long word pointer to the process table. 
The process table is simply a save area for 
process context information. 

BOOT NAME is a long word pointer to the name of the device 

from which to boot the system. 

MEM MAP is a long word pointer to a table describing the 

limits of memory available to MERLIN on the 
current hardware. 

300TDEV is a word value representing the device number 

of the initial boot device. 
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byte +0 

1 

lORESULT 

I 

+2 

1 

Process Mumber 

I 


1 

Painter to next available free space on the 

heap I 

4-a 

1 

Pointer to start of System Call Vector 

I 

+12 

1 

Pointer to System Output Pile 

I 

+16 

1 

Pointer to System Input Pile 


+20 

1 

Pointer to System Device Table 


+24 

1 

Pointer to Boot Device Directory Marne 


+28 

1 

Pointer to Start of aser Command Table 

I 

+■32 

1 

Today's Date (held as a Packed Record) 

I 

+34 

1 

Overlay Jump Table Address 


+38 

1 

Next Process Number 

I 

+40 

1 

Number of Processes 

I 

+42 

1 

Pointer to the Process Table Array 

I 

+46 

1 

Pointer to the Name of the Boot Device 


+50 

1 

Pointer to Memory Bounds Map 

I 

+54 

1 

Boot Device Number 

I 


?igute 2-1 

System Communication iVrea Layout 


2.4 The System Call Vector 

All MERLIN system calls are, at this time, made by reference 
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through a vector of procedure addresses. The start address of 
the system call vector is found in the system communication area, 
described previously. Each entry in the system call vector is a 
long word (32-bit) pointer. The table below is a list of the 
entries in the system call vector. 


i Offset 1 

Routine Marne 

1 Description 


1 OMIT WRITS 

Direct write to unit. 

i ^ 

OMIT READ 

Direct read from a unit. 

1 2 

i OMIT CLEAR 

Clear - reset a unit. j 

3 

OMIT BUSY 

Chech if unit is busy. 

4 

! fput 

Write one record to a file. ! 

5 

FGET 

Read one record from a file. 

6 

FIMIT 

Initialize a file. i 

7 

FOPEM 

Open a file. | 

3 

FCLOSE 

Close a file. 1 

9 

WRITECHAR 

1 Write a character to a fils. ; 

10 

REAOCSAR 

Read a character from a file. ; 

11 

BLOCKIO 

Bloch input-output. Transfer a 1 
specified number of blochs to or ; 
from a file. | 

I 12 

FSE2K 

Position a file to a specific record. > 

13 

NEW 

Allocate memory on the heap. i 

i 14 

i 

DISPOSE 

Remove allocated memory. DISPOSE is | 
currently a no-op. Mmeraory management j 
is handled with MARX and RELEASE. j 

15 

MARE 

Marh the current position of the top 1 
of heap . 1 

16 

rzlease 

Cut the heap bach to a previously i 

MARX' ed position. | 

17 

MEMAVAIL 

Determine amount of me.mory available ! 
for dynamic storage allocation. ! 

13 


Get directory name. | 

13 

LOADl 

Calls the loader to load an overlay. | 

2Q I 

REMOVEl 

Remove (unload) an overlay. j 

21 

SYSTEM DEBOG 

If NILf there is no debug available. | 

22 , 

MERLIM 

The entry point to restart MERLIM. 


Figure 2-2 

The System Call Vector 

The last four entries in the table above are used by ME3LIN and 
need not normally be accessed by user programs. 
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2.4.1 Calling a System Routine 

TO call a system routine > the appropriate parameters must be 
pushed onto the stack. The last thing pushed onto the stack 
should be the return address (normally pushed via a J5R 
Instruction) . The address of a system routine is extracted from 
the system-call vector, and a JSR to that address is then 
executed. 

The code fragment below illustrates a way to call a system 
routine. In this specific example, the routine RCLOSE is called 
to close a file. 


PEA 

FBUPP 

CLR,V 

-(3P) 

MOVE.L 

$130. B, AO 

MOVE.L 

a (AO) ,A0 

MOVE.L 

32 (AO) ,A0 

JSR 

(AO) 


. . . Return Address . . . ; 


Push address of FIB. 

Close type :• RORMAL. 

AO :* System Communication Area address. 
AO :« System Call Vector address. 

AO :« Address of FCLOSE entry. 

Call the FCIiOSE routine. 

FCLOSE returns to here 


2.5 File Information Block (FIB) 


Access to files requires passing the address of a File 
Information Block, abbreviated to FIB. A FIB contains all 
information about a file, its type, buffering and so on. 

Before a file can be opened, an FIB must be allocated. The 
total number of bytes to be allocated depends on whether using 
Block input-output is being used. If Block input-outputis being 
used, the FIB is 64 bytss long. In this case, the user must also 
allocate a buffer for the block. If Block input-output is not 
being used, in other vrards the file is a text file or an ISO file 
of type, the FIB is 576 bytss long, plus the number of bytes in a 
record. 

WIBTOW is a long word pointer to the file 'window' - 

the area at the end of the FIB that holds the 
current record. 

EBP OF LIBS is a Boolean that is true if an end-of-Iine was 
encountered in the file, false otherwise. 
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END OF FILE Is a Boolean chat is true i£ the file is 

positioned at end-of-file / false otherwise. 

TEXT is a Boolean that is true if this is a text 

file. This is true for interactive (mode 0) pc’ 
text (mode -2) files. It is false for any other 
file type, 

STATE is a word value that can take on the values 0, 

1, 2 or 3. This field is only used for text 

files . 

RECORD SIZE is a word quantity that defines the number of 

bytes in a record. 

FILE IS OPEN is a Boolean quantity, when true/ the followinq 
information in the structure is valid. 

FILE IS BLOCKED is a Boolean value that is true if the file 
resides on a blocked device. 

ONIT NDMBER is a word that contains t.he current unit number 

for this file. 

VOLUME NAME is an eight byte string that contains the name 

of the volume on which this file resides. The 
first byte in the string is the number of bytes 
in the volume name. 

REPEAT COUNT is a word quantity that represents the number of 
leading spaces on a line. It is included here 
for OCSD Pascal compatibility. 

NEXT BLOCK is a word quantity which is the number of the 

next block to be read from or written to the 
file. This field only applies when the file is 
an ISO or a text file. 

.'4AXIMUM BLOCK is a word quantity that is the number of the 

last block in the file. 

.'■tOOIFIED is a Boolean quantity that/ when true/ indicates 

that this file has been changed. 

header is a directory entry. This information is used 

by the file system and contains information such 
as the file's name/ relative disk location and 
latest modification data. The directory entry 
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occupies 26 bytes in the FI3. 

SOFT BUFFER is a Boolean quantity that when true, indicates 

that the file buffer for this file is actually a 
part of this structure, instead of separately 
allocated as in the case of a bloclced file. 
When SOFT BUFFER is true, the following items 
are part of the File Information Block. 

NEXT BYTE is a word quantity that is the next byte 

position to be read or written in the buffer. 

MAXIMUM BYTE is a word quantity that is the number of the 
last byte .in the buffer. This is used when 
reading a file that has a partial last block or 
when writing any file. 

BUFFER C3AMGE0 is a Boolean, quantity that when true, indicates 
that the file buffer in this FIB has been 
changed and therefore must be eventually written 
back to the disk. 

BUFFER is a S12 byte array -• the size of one logical 

disk block. 

RECORD WINDOW is an array of bytes sufficiently large to hold 
one record from the file. If that record is an 
odd number of bytes in’ size, the buffer is 
increased to be an even number of bytes long. 

The diagram on the next page is a graphic layout of a File 

Information Block. 
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byte 


+64 . 


+0 

M M •• M M Ml ««« M 

1 Pointer 

to the File Buffer 

1 

1 

+4 

1 End Of Line 

1 End Of Pile 

1 

1 

+6 

1 Text Pile 

1 File State 

i 

+ 8 


Record Length 

i 

1 

+10 

I File la Open 

1 File Is Blocked 


+12 

1 Unit Muatoer 

on which the File resides 

i 

+14 

{ Length of Volume Name | Volume (lame (7 bytes) .. 

1 

• 1 

+22 


Maximum Block 

i 

+24 

1 

Mext Block 

1 

+26 

i 

Repeat Count 

1 

+28 

1 File Has Been Modified | - Onused 

i 

i 

+30 


First Block 

i 

+32 

j _ ■ 

next Block 

1 

+34 

1 File Kind | 

Unused 


+36 

I Length Byte of Filename | Filename (15 bytes).... 

.1 

+52 

1 iTumber of Bytes in the Last Block of the File 


+54 

1 Month (4) 1 Day 

(5 bits) j Tear (7 bits) 


+56 

1 Unused 

I File has Soft Buffer 

i 

+58 


Maximum Byte 

! 

+60 

1 

Next Byte 

i 

+62 

1 Unused 

1 Buffer has been Changed 

1 

1 

571 

j 512 byte buffer 

if the file has a 'soft buffer' 

1 

+572 

1 'window' big enough for one record of the file 

i 
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2.6 Device Directory 


A directory resides on a blocked device. The device directory 
contains information about the volume and the files that reside 
on that volume. A complete directory is an array of 73 directory 
entries/ the first entry being the header record which describes 
the specific volume. The other 72 entries are for the files t.hst 
reside on the device. The elements in a directory entry are 
described here: 


?1HST BLOCK 
SneXT BLOCK 
FTL2 Kura 


is a vK3rd quantity which is the number of the 
first available block on this device. This 

entry is nocmall zero (0) . 

is a word quantity which is the number of the 
next available block after this entry. ?or the 
volume header entry/ this is normally 6. 

is a four-bit quantity which is the kind of file 
that this entry describes. The next two 
Subsections describe the different layouts of a 
directory entry depending on the fils kind 
field. The values of file kind that are of 
interest are: 

0 a directory header entry. 

2 a code file. 

3 a text file. 

S a data file. 

a is also a directory header entry. 

the file kind entry is followed by 12 bits of 
unused space to fill up the word. 


2.6.1 Directory Entry for a Header Record 

If the FILS KIND field in the directory entry indicates that 
this entry is a directory header record/ the following fields are 
valid: 
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VOLUME NAME is an 8-byte field consisting of a length byte 

followed by seven characters of the volume 
name . 


LAST BLOCS a word quantity which is the number of the last 

available bloclt on this volume. 


NUMBES OP PILES a word quantity which is the number of files on 
this volume. 

LOAD TIME a word quantity which is not used - it is set to 

zero. 


LAST BOOT is a word quantity which contains the most 

recent setting of the data. This word is in 
fact a data record. 


MEMORY FLIPPED a Boolean quantity only used by the system. 

DISK FLIPPED a Boolean quantity only used by t.he system. 

There are two unused bytes at t.he end of t.he 
directory header entry. 


2.6.2 Directory Entry for a File Entry 

If the FILE KIND field in the directory entry indicates that 
this entry is any sort of file, the layout of t.he entry is as 
follows : 

FILE NAME is a 16-byte field containing t.he file name. 

The first byte contains the length of the field 
- the remaining 15 bytes are the characters of 
t.he file name . 

LAST BYTE is a word quantity which is the number of bytes 

in the last bloch of the file. 

LAST MODIFICATION DATS 

is a word quantity containing a data record 
representing the last time that this file was 
changed. 

The diagram below illustrates the layout of a single directory 
entry. The first section is common to all :<inds of directory 
entries. Then t.he entries on the left hand side correspond to a 
directory header entry and those on t.he right hand side 
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correspond to a file entry. 


Byte - 

—> +0 

1 

FIRST BLOCK 

1 


+2 

j 

NEXT BLOCK 

• 'j 


+4 

1 FILE 

KINO 1 ONDSED 

1 




DISK 7OL0ME NAME 

1 

PILE NAME 

+14 


LAST BLOCK 

1 


+16 

1 

NUMBER OF FILES 

1 


+13 

1 

LAST ACCESS 

1 


+20 

1 

LAST BOOT 

1 


+22 

i MEM 

FLIPPED i DISK FLIPPED 

1 

LAST arrs 1 

+24 

1 

UNUSED 

iZ 

LAST ACCESS | 


Figure 2-3 

Layout of a Directory Sntry 
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2.7 The Device or Jnit Table 


The Device (or Unit) Table contains the maximum number of 
devices in the first word of the table. The remainder of the 
table consists of an entry for each particular unit. The overall 
layout of the unit table is as shown in t.de diagram below. 


3yte > 0 

1 Maximum Mumber of Devices 

+ 2 


Entry for Device 0 

+20 

1 

Entry for Device 1 

+ 33 

. . . 

. and so on until . . . 


+nn I Entry for Device MAXDEV | 


Figure 2-4 

Overall Layout of the Device Table 

Each entry in the unit table contains the following 
information: 

VALID OPSHATION 3 ITS 

a word quantity which contains a bit-map that 
with bits "on" to specify those opecations t.hat 
are valid for this device. The bits in tne 
first word in each entry have t-he following 

meanings : 

1 this unit can perform a 0^IITE£AD 

operation. 

2 this unit can perform a ONITWRITE 

operation. 

4 this unit can perform a OTIITCLEAH 

operation . 
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3 this unit can perform a tJNITBUSY 

operation. 

16 this unit can perform a tJNITSTATUS 

operation. 

ADDRESS OF DRIVER 

is a long word pointer to the driver code for 
this device. 

BLOCKED a Boolean which when true, indicates that this 

is a bloclced device. 

MOCNTSO a Boolean which when txna, indicates that this 

device is nounted (a driver is assigned to it) . 

DEVICE MAME an eight-byte field which is the name of the 
device. The first byte is the length of the 
string; the remaining seven bytes are the actual 
name of the device. 

DEVICE SIZE ■ is a word quantity which is the number of 
512-byte bloclcs on this device. For an 

unblocked device, it is set to the mcucimum 
integer, 32767. 

The layout of each entry in the device table is as shown 
below . 


■( 

Offset +0 

Valid Operation Bits 

1 

+2 

Pointer to Driver Routine 


+6 

BLOCKSO 1 HOnNTSD 

1 

-t-a 

Device Namm occupies 
eight bytes 


+16 

Device Size 

1 

•- 4 * 


Figure 2-5 

Individual Device Table Entries 
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2.8 Input Cutout Result Codes 


Che lORESULT field in the System Communication Area contains a 
result code every time some input-output process is completed. 
Che table below describes the codes and their meanings. 


0 

1 


Good result, 
successfully . 


Che 


operation completed 


3 

9 

10 
12 


Bad aiocic. Usually due to CRC error on disl< 
read. 

Either a bad unit number, or there is no driver 
implemented for t.his unit. 

The requested input output function is not valid 
for this device. For example, bloclr write to 
the iteyboard. Also happens whan attempting to 
open an already open file. 

:!Iebulou3 Hardware Error. 

Lost Device - a previously accessed device went 
offline . 

Lost File - a previously accessed file has 
disappeared from the file directory. 

Invalid File tlame. 

>lo room left on the device for the file. 

this usually indicates something diastrous 
occurred while doing the input-output - the 
device is off-line, for example. 

Mo File - the named file does not exist. 

Duplicate File - attempt to rewrite a file t.hat 
already exists. 

File is Already Open - An attempt to open a file 
that is already open. 
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13 

File Not Open - Attempt 
file. 

to operate on a closed 

14 

Bad Format Non-numeric 

or ReaiL read operation. 

data read in an Integer 

15 

Ring Buffer Overflow. 


16 

Write Protect - attempt to write to a write 
protected device. 

17 

Seek Error - Seek on a 
file or a blocked file, 
record number. 

file that is not a text 
Also seek to a negative 

64 

Device Error of unknown origin. 
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2.9 Memory Layout under MERLIN on the 6 8000 


Top of Memory 


MEIILIN Kernel Code 


91000 > 


Shell 


Process 1 
Process 2 
Process n 

7 


Permanently Resident Code 


» ■ ' ■■ ■ ei 

Kernel Globals 

1 

1 Kernel Stack | 

-I—-- 

Shell Globals 


Shell Stack 

1 

{ Process 1 Globals and Stack | 


Stack 

1 



1 

V 



1 

Heap 



9130 > 

9100 > 

90 — > 


Painter to SYSCOM Area 
Trap Vectors 


Figure 2-6 

Memory Layout in MERLI2I 
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2.10 Register Usage in MERLIN 


Registers A4 .. \7 are reserved for system use as follows: 

A4 holds the address of the overlay jump table. 

A5 holds the address of the user global data. 

A6 holds the base address of the local staclc 

frame. A6 is undefined for a procedure at the 
outermost (main) level. 

a 7 holds the current stack top address. 

All other registers are CLOBBERED when system calls are made. 


2.11 Environment of A Running Program 


The diagram below shows the run-time environment pointed to by 
register A5. 


(AS) +20 

1 

XBGC (argument count) 

— + 

(A5)+1S 

1 

ARG7 (point to Arguments) 


(AS) +12 

1 

Pointer to Standard Output 


(AS) +8 


Pointer to Standard Input 

1 

(AS) +4 

1 

Return Address 


> 

1 

Old Copy of AS 



Figure 2-7 

Environment of a Running Program 
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Chapter 3 
Systea Calls 


This Chapter provides a blow-by-’blow description of the system 
call interfaces. In all cases r parameters are described in the 
order in which they must be pushed onto the stack. The last 
thing pushed onto the stacks in all cases, is the return 
address. The discussions below cover the following topics: 

. Unit input-output. 

. File input-output. 

. Memory Management. 


3.1 Onit input-output 


Unit input-output is at the lowest level of the system 
input-output facilities. Unit input-output references the 
physical devices in terms of physical blocks (on a disk} . There 
are five system interfaces for unit input-output, namely 
UBITRZSiOr UNITWKITS, UNITBUST, ONITCLSAA and UMITSTATUS. They are 
described in the subsections that follow. 


3.1.1 UNITSSAO and UNITWHXTS - Direct Unit Data Transfer 

UNITSSAO and UMITWRITS are used to transfer information between 
a memory buffer and a specific unit. Parameters are: 

unit number a word quantity representing the physical unit 
number involved in the transfer. 

buffer address a long word pointer to the memory buffer. 

b2^ count a word quantity representing the number of bytes 
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to be transferred. 

block number a word quantity representing the physical block 

^ number to be read or written. In the case of 

character devices such as the keyboard or 
. ' printer, the block number is ignored. 

mode a word quantity which is driver dependent. For 

example, in the acSD Pascal system, one of the 
functions of mode is to inhibit special 
treatment of space compression indicators i.n the 
byte stream as it flies through the driver. 


3.1.2 CNITBUSY - Check if Unit is Busy 

UHITBCSY can be called to determine if t.he unit is busy, that 
is, whether it is ready for data transfer. Parameters are; 

unit number a word quantity which is the number of the unit 
involved . 

ONITBUSY returns a result on the stack top. The result is a 
Boolean quantity which is true if the unit is busy, false if not 
busy. 


3.1.3 ONITCLBAJI - Reset a Unit 

UNITCLBAB is called to "reset” a unit to a known initialized 
state. Parameters are: 

unit number a word quantity representing the number of the 

unit to be cleared. 


3.1.4 ONITSTATTJS - Return Status of Unit 

UMITSTATUS is a catch-all procedure which, in addition to 
returning the status of the specified unit, can also be used to 
change unit parameters. Parameters are: 

unit number a word quantity representing the phsyical unit 
number involved. 

buffer address a Long word pointer to the buffer used for 
transferring information between OITITSTATUS and 
the caller . 
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control a word quantity representing a control parameter 

wboae meaning is agreed upon between OMITSTATUS 
and any of its callers. 


3.2 File input-output 


This Section describes those facilities that deal with files. 
In order to use the File input-output facilities, it is 
neccessary to allocate a File Information Block (FIB) . See 
Chapter 2 for the details of an FIB. If Blocked input-output is 
being used, a buffer must also be allocated for the data transfer 
operations. The buffer must be big enough to hold the number of 
blocks to be transferred at any time. 


3.2.1 FUIIT - Initialise a File 

FINIT sets up a File Information Block when the file is 

opened. The Open File function (FOPEN) usually calls upon FINIT 
to do this, aser programs do not normeilly need to call FINIT. 
Parameters are: 

Pointer to FIB a long word pointer to a File Information Block. 
bytes in a record 

a word quantity. There are special meanings 
attached to this parameter if it is zero or 
negative. If positive , it represents the number 
of bytes per record in the file. If zero or 

negative, it has the following meanings: 

0 this file is an interactive file - 

it is talking to a device such as a 
terminal. An interactive file is to 
all intents and purposes the same as 
a text file. There are some minor 
differences in the way that 

end-of-line is handled. 

-1 this file is a aCSO Pascal 

compatible file. It is normally 

declared as just file; (an untyped 
file) , as opposed to a file of 
SOM-type;. with this file 

organization, the user must provide 
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the buffer. aiocit input-output can 
only be done to such a file type. 
See the Subsection on Block 
input-output later on. 

-2 this file is an ISO Standard Pascal 

compatible file. That is, a file of 
text ; . 


3.2.2 ?GET and F?UT - Transfer File Data 

FOST and F?UT are considered together, since the calls are 
identical except for the data transfer direction. Thera is only 
one parameter: 

pointer to FIB a long word pointer to a File Information Block. 


3.2.3 FOPEN - Open File 

F0P2N "opens" a file ready for data transfer. Parameters are; 
Pointer to Filename 

a long word pointer to a character string which 
represents the name of the fils to be opened. 
The maximum number of characters in a file name 
is 24 at present. This is composed of a 
seven-character volume name enclosed between 
slash characters "/”, followed by a 15-character 
file name. 

Pointer to FIB a long word pointer to a File Information Block . 
Mew File Indicator 

a Boolean quantity which, when true, indicates 
that this is a. new file, and when false, 
indicates that this is an existing file. 


3.2.4 FCLOSE - Close File 

FCLOSE closes a file and severs the relationship between a 
program and a file. It flushes out any buffers. FCLOSE also 
disposes of the file in a manner determined by t.he mode parameter 
described oelow. Parameters are: 

Pointer to FIB a long word pointer to a File Information Block. 
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Mode a word quantity indicating the disposition of 

the file after it is closed. The inodes are: 

0 normal - if the file is an old file 
- it existed prior to this program 
run, it is saved (retained) in the 
file system. If the file is a new 
file > created during this program 
run, it is deleted or purged from 
the file system. 

1 lock makes a file permanent in the 
file system, regardless of any 
conditions mentioned in case (0) 
above. 

2 purge - purges or removes this file 
from the file system when the file 
is closed. 


3.2.S SEAOCHAa • Read a Character from a File 

REAOCOUl reads a single character from a file. R£AOCH2iR only 
applies to interactive (mode 0), or text (mode - 2 ) files. 
Farameters are: 

Pointer to FIB a long word pointer to a File Information Block . 
R£2^DC32iR returns a single byte value on the top of the stack. 


3.2.6 WRITSCHAR - Write a Character to a File 

WRITSCHAR writes a character to a file. There is a field width 
specification which can cause space filling. WRITBCHAR only 
applies to interactive (mode 0), or text (mode -2] files. 
Parameters are: 

Pointer to FIB a long word pointer to a File. Information Block. 
Character to be written is a byte . 

Size a word quantity representing a field width. If 

size is greater than one, the character is 
preceded with sise~l spaces. 


3.2.7 SBSS - Position to a Specific Record in a File 
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SEEK poaitiona a Cile to the start of a specific record. it is 
intended for use in random file addressing situations. For a 
text file, it poaitiona to the specified by to in the file. The 
position is absolute within the file, not relative to the 
previous position. Parameters are : 

Pointer to FIB a long word pointer to a File Information Blocic . 

Record >Tumber a long word quantity representing the record to 
position to. Records are numbered from 0. 


3.2.3 BIiOCKIO - aiocic input-output 

BLOCKIO (Block oriented input-output) is used to read or write 
whole blocks on a file. BLOCKIO only applies to untyped files - 
files created in mode -1. The blocks in question are physical 
disk blocks. In ME2U.IK's universe of discourse, blocks are 312 
bytes. Parameters are: 

Pointer to FIB a long word pointer to a File Information Block. 
Pointer to Buffer 

a long word pointer to a buffer containing the 
data to be read or written. 

Block Count a word quantity raptesenting the number of 

blocks to be transferred. 

Block Number a word quantity representing the block number at 
which to start the transfer. Blocks are 
numbered from zero. 

Read or Wr i te Indicator 

a Boolean quantity indicating a Read when true, 
or a Write when false. 

Block input-output returns a word quantity on the stack top. 
If the value is non-zero it is the number of blocks actually 
transferred. It is important to note that this value may not 
always be t.he same as the number of blocks requested - t.his 
happens when an end-of-file is encountered. If the value is 
zero, it indicates some form of error, in which case lORESULT 
should be read from the System Communication Area and checked for 
an error code. 
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3.3 Memory Managamant 


This saction dascribaa those MEItLIN system calls dealing with 
dynamic allocation and da-allocation of memory. Memory 
Allocation is dona on a heap . The haap grows upward from the end 
of tha usar program. Tha user stack grows downward from the top 
of memory. Whan tha two collide, there is mutual annihilation. 


3.3.1 ilEW - Allocate Storage 

NEW allocates storage on tha haap. Parameters are: 

Pointer to Storage 

a long word pointer which points to another long 
word pointer. Tha second pointer ceceiTres the 
start address of tha allocated storage, in the 
event that there is enough storage to allocate. 
Note that NEW always returns a pointer that is 
aligned to a word boundary. 

Count a word quantity representing the number of bytes 

to be allocated. Note that if an odd number of 
bytes are requested, NEW rounds up to an even 
(word) number and allocates that number of 
bytes . 


3.3.2 DISPOSE - Oe-AUocate Storage 

DISPOSE currently acts as a no-op. It does not actually 
dispose of de-allocate storage as in some Pascal 

implementations. DISPOSE does, however, return a NIL pointer to 
the caller. Parameters are; 

Pointer to Storage 

a long word pointer that itself points to 
another long word pointer. This second pointer 
is the address of the region of storage to be 
de-all ocated. 

3vte Count a word quantity representing the number of bytes 

to be freed. It must be the same number as that 
given to the NEW call as described above. 
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3.3.3 MAAK and RELEASE - Mark Heap and Release Heap 

MARK and RELEASE are used in conjunction to de-allo 
previously allocated storage. They are identical in t 
parameter requirements: 

Pointer to Storage 

a long word pointer t.hat itself points 
another long word pointer. This second poin 
is the start address of the storage region to 
marked or released. 

MARK is used to "remember" the current position of the top 
heap. RELEASE subsequently uses the point 
that MARX returns to cut the heap top back 
the previously MARK'ed position. 


3.3.4 HEMAVAIL > Determine Available Memory 

MEMAVAIL returns^ on the stack top, a long word quantity whic 
is the number of free bytes available on the heap. 


3.4 GSTDIR - Read a Directotv 


GETSIR reads a directory if one is available. Parameters are; 
Pointer to Volume Same 

is a long word pointer to a string which 
represents the name of a volume whose directory 
is to be read. 

Pointer to Directory 

a l^ong word pointer to an area of memory large 
enough to receive an entire directory. 

Device Blocked indicator 

is a long word pointer to a Boolean quantity 
which is set true if the device is blocked 
device. 

Device Sumber is a long word pointer to a word quantity which 
is set to the device number. 
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Davica is Valid Indicator 

a long word pointer to a Boolean quantity which 
is sat to true is the device named by the first 
paramatar above is actually on the system. If 
this parameter is assigned the value false, none 
of the previous three parameters are defined. 

The interpretation of the various parameters of GZTDIIl is as 

follows : 

. If Davica-is-Valid is false, the device named by the first 
parameter is not on-line. In this case, none of the other 
parameters are meaningful. 

. If Oav ice- is -Valid is true. The Oevica-Mumbar parameter is 
assigned the number of the unit associated with that volume. 

. The Oevice-aiocked parameter is set to false if the device is 
not a bloclted device (such as the /printer) . In this case, the 
Oirectory parameter is meaningless. if the Device- Blocked 
parameter is set to true, the device is a blocked device, in 
which case the Oirectory parameter contains the directory read 
in from that volume. 
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Chapter 4 

Welting a Unit Driver 


This Chapter diacuasea the baaic concepta of writing a unit 
driver for then ahowa an example of such a driver written 
in 63000 assembler code. 


4.1 Calling Conventiona 


Unit driver parameters are passed in registers, as follows: 

DO.W Unit number . This parameter is useful for 

validity checking where a given unit driver can 
have more than one logical device assigned to a 
single physical unit (such as a disk) . 

Dl.r. Address of Buffer to or from which the data 

transfer Ts to be made . 

D2.W Number of Bvtes of data to be transferred. 

D3.W Block Number at which the. transfer is to start. 

This is only applicable to blocked devices. 

04. w Command determines what operation (UnitHead, 

UnitSusy and so on) , that the driver is to 
perform. This parameter is described in detail 
below. This parameter is the only valid 

parameter passed to unit-clear or unit-busy. 

DS.w Mode is device dependent and controls operations 

such as whether data compression characters are 
to be recognized. 

The result of the ooeration (lORESULT) is returned in register 

07 .W. 
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4.1.1 Unit Driver Command Parameter 

The Command passed in register D4.W describes what operation is 
to be performed. The command values are summarized here and 
described in greater detail below. When a given driver gets 
control, the caller has already verified (from the unit table) 
that this command is valid for this particular unit driver. The 
values of the command are: 

0 Install the driver - perform any required initialization. 

1 Read from the unit. 

2 Write to the unit. 

3 Clear the unit - reset it to its initial state. 


4 Test if unit is busy. 

5 Return status of unit. 

6 Unmount the unit. 

Install When MERLIN installs a unit, either at boot time 

or when a unit is explicitly assigned, it is 
called with the install parameter. The unit can 
perform any initialization code neccessary to 
set up cyclic buffers, place interrupt vectors 
and so on. 


Read and Write Are self-explanatory. 

Clear Initializes the device - clear pending 

interrupts and such. 

Busy Chech if the unit is ready for data transfer. 

Status Return the status of the unit. This operation 

is device dependent. 

Umoount unmount the unit. This is called when the unit 

is re-assigned a new driver or is de-assigned. 
At this time the unit driver should perform any 
clean up or restoring of interrupt vectors that 
might be neccessary. 
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4.2 A Sample Dnit Driver 


The code below shows an entire unit driver with explanatory 
notes interspersed. The driver represents a model to be followed 
in broad outline rather than slavishly. I4ote the use of a table 
of self-relative addresses which the driver uses to jump to its 
various sections. A driver organized in this way can be located 
anywhere in memory and is independent of location. 


IDENT CDURTDRI 
GLOBAL DARTDRIV 

OARTDRIV - The NEC PC7201 DART Unit Driver 

Parameters: DO.w - Dnit Number 

Dl.L - Address of Buffer 

D2.W - Count 

D3.H - Bloclc Number 

04. W - Commwd 

DS.W - Access Mode 




Input 

Parameters : 


Result values: 

Command 

Dnit 

Addr 

Count 

Block 

Mode 

lORESDLT 

Busy 

0 - Install 

DO.w 





D7 .W 


1 - Read 

DO.W 

Dl.L 

D2.W 

D3.W 

DS.W 

07. W 


2 - Writs 

DO.W 

Dl.L 

D2.W 

03. W 

D5.W 

07. W 


3 - Clear 

DO.W 





07. W 


4 - Busy 

DO.W 





D7.W 

00.3 

5 - Status 

DO.W 

Dl.L 

D2.W* 


07. 

W 


6 - Dnmount 

DO.W 





D7.W 


interpret the 

table 

above / 

the 

unit number 

for this 

driver 


is always passed in register DO.W. All commands always return an 
lORESULT in register 07. w. ONITBDSY, for example/ is the only one 
that passes a result bacic in register 00.3. The DNITREAD/ 
DNITWRITS and DNITSTATUS commands all expect a buffer address in 
register Dl.L and a byte count in register 02. W. 

In the case of the Status command/ the value in register 02. w 
is a control parameter and not a count. 
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The next piece o£ code is the entry for a unit driver, 
illustrating haw the various sections o£ the driver are called 
depending on the specific command. 


Entry point for the OAJIT Driver. 


UAilTDRIV 

CLA.W 

MOVE. I. 

LEA 

LSZ..W 

MOVB.W 

JMS 

; 

nSSTABL OATA.W 
OATA.W 
□ATA.W 
OATA.W 
OATA.W 
OATA.W 
OATA.W 


07 ; 

01, AO 

0RTTABL,A1 

#1,04 

0 (A1,04.W) ,04 ; 
0(A1,Q4.W) ; 

ORTlNST-aSlTTABL 

OSTED-CBTTAaL 

ORTWR-TOTTAaii 

OOTCLa-ORTTABI. 

ORTBSY-ORTTAB]:. 

ORTST-URTTAaL 

aRTDNMT-ORTTABL 


lORESULT 0. 

AO :» Data buffer address. 

Al :» Base address of offset table 
04' :■> Command*2 for word count. 

04 Offset from ORTTABL. 

Go to appropriate driver. 

; Install driver. 

; Read from DART. 

; Write to DART. 

; Clear DART. 

; Test if Busy. 

; Return status. 

; Unmount driver. 


The nex-t few code sections illustrate the entry points and give 
a broad view of the operations performed. 


; 


Constants to define the CART base addresses. 


carta SQU $600000 
UARTAC EQ7 $600002 
1 
; 

aHTlNST 

HOVE #UARTAC,A0 
MOVB.B *13, (AO) 

MOVB.B #13, (AO) 

MOVE.B #2, (AO) 

.... more code to 

.... initialize the 

RTS 


CART A data register. 
CART A command register. 


; URTINST - Install the Driver. 

; AO :• DART A control register. 
; Select register 0. 

; Reset the whole DART. 

; ' Select register 2. 

□ART 

; Return to the caller. 


; 

jnmjNMT 

RTS 


7 DRTUNICT - Unmount the dr iver , 
7 Nothing to do in this driver. 
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ORTSD 

UrdLoop SUBQ.W 
BMI.S 

atdBusy MOVE.B 
AN0I.3 
BEQ.S 
MOVE. a 
BRA.S 

UrdExit RTS 


; ORTRD 

*1,D2 
acdExit 
DARTAC.L,DO 
*1,00 
DrdBuay 
UARTA.MAO) + 
UrdLoop 


Read character ( 3 ) from DART A. 
Any more characters wanted ? 

No - return to caller. 

DO :■ DART status register. 
Checlc if receiver full. 

NO - wait until it is. 

Yes - move o.haracter to buffer 
Go for next character. 

Finished - return to caller. 


DRTWR 

DwtLoop 


SUBQ.W 

BMI.S 


DwrSxit rers 


; DRTWR - Write character (3) to DART A. 
itl/D2 ; Any more characters to write ? 

DwrExit ; No - return to caller, 

remaining logic similar 
. . to DRTRD except for 
.... direction of transfer 

; Finished - return to caller . 


DRTCLR 


.MOVE, a 
RTS 


DARTA.L,D0 


ORTCIR - Clear the DART driver 
Read character if present. 
Return to caller. 


DRT3SY ; DRTBSY - See if character available. 

move. 3 DARTAC.LfDO ; DO :• DART status register. 

ANOI.W ^1,D0 ; Chec)c if receiver full. 

SNE DO ; Make condition code into .. 

NEG.B DO ; ... a Pascal Boolean. 

RTS : Return to caller. 


DRTST 


.RTS 

END 


DARTDRIV 


DART status - nothing to do. 
Return to caller . 

End of the whole driver. 
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Chapter 5 

Interface Definitions in Pascal 


This chapter shows the Pascal type definitionSf and the 
procedure interfaces r to MESLIN. The information given here is 
the Pascal representation of the narrative information in the 
preceding Chapters. 


5.1 Basic Constant and Type Definitions 


Const 


BLOCKS IZE 

M 

512; 

number of bytes in a dislc block 

TIDLENGTH 

m 

7; 


number of characters in a volume name 

TIDLENGTH 

m 

IS 


number of characters in a file name 

MAKOIR 

m 

72 


ouue number of directory entries/ volume 

MAXDSV 

m 

20 


max number of devices on the system 

MAKJTABLE 

m 

22 


number of entries in system call table 

makutable 

m 

10 


number of entries in user call table 

MAKEROCESS 

m 

10 


max number of processes allowed 

SYSCOMPLOC 

m 

aoiao; 

[ System Communication Area Pointer 

LOCOOELOC 

m 

aoioa; 

' Lowest memory location pointer 

HICODELOC 

m 

5010C; 

^ Highest memory location pointer 


{ Pile disposition codes } 

FMOHMAL - 0 ; 

ST.OCK - 1 } 

FPDRGE ■ 2j 

PTR0NC • 3 j 

T7P« 

stringao • stringCSO]; 
dirrange • 0 . . MA^IR; 
vid » string [VTDLENGTHl ; 
tid - string [TIDLENCTH] ; 
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f ileltind 


(UOTYPEDFILZ, XDSKFILE, CODEFILE , TSXTFILE, INFOFILS , 
DATAFILE, GBAFPILE, FOTOFILE, SECURDIE) ; 
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S.1.1 Layout of the Date Record 


Type 

daterec »' packed record 

year : 0 .. LOO; { 100 ■> temporary file } 

day : 0 . . 31; 

month : 0 .. 12; [ 0 «> date not meaningful } 

end; 


5.1.2 Layout of a Directory Entry 


Type 

dir an try • 

packed record 

firstbloek : integer; 
nexthlock : integer; 
status : boolean; 
filler ; 0 .. 2047; 
case fkind : filekind of 
SSCUROIR, ONTyTSOFILS: 

(dvid : 7id; disk volume name 

deovblock: integer; ^ last block of volume 
dnumfiles: integer; ' number of files 
dloadtime; integer; | time of last access 
dlastboot: daterec) ; most recant date setting 
MeioFlipped: Boolean; TR0E if flipped in memory 
OskPlipped: Boolean; TRUE if flipped on disk 
XOSKPILS, CODE7IL2, TSXT7ILE, 

IH7071LZ/ OASAETLE, (3RAFEILS, 

POTOFUS: 

(dtid* tid; { title of file 

dlastbytes 1 .. BLOCESIZE; { bytes in last block 
daeeess; daterec) ; { last modification date 

end; 

directory ■ arxayCdirrange] of direntry; 

pdirectory • '‘directory; 


devrange • 0 .. MAXOSV; 
byte • -128 . . 127 ; 
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bytes • arrayCO .. 9999] of byte; 

pbytes ■ ^bytes; 

ppointar « '‘pbytes; 

string32 « stxlng[32]; 

string64 ■ 3-tring[641; 

pstring64 ■ ^string64; 

str64rec ■ record s:string64; and; 

pstr64rec; * 'str64cec; 

stringtable • arxayCl .. 100] of pstr64rac; 
pstringtable - '‘stringtable; 
addrtable - array[0 .. MAXJTABL2] of pbytes; 
paddr table • ''addrtable; 

uaddrtable • arrayCO .. MAXtrTABLS] of pbytes; 
puaddr table • ''aaddr table; 

nemrac • record lodata: longlnt; 

hidata: longlnt; 
locode: longlnb; 
hicode: longlnt; 
btdev: integer; 

end; 
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5.1.3 


type 
pf ib 
fib ^ 


File Interface Block Definition 


‘fib; 


' record fwindow: pbytes; 

TEQLS : Boolean ; 

FEO P; Boolean; 

FTEDCT : Boolean ; 

fstate; (FT7ALID, PIEMPTY, FIVAI.ID, PTEMPTY); 
frees ize: integer; 
ease FIsOpen: Boolean of 

true: (Flsllocked: Boolean; 
funit: integer; 
fiTids vid; 
f repea tcount, 
f nextblcck , 
faaxblock: integer; 

FModified: Boolean; 
fheader: direntry; 
case FSoftBuf: Boolean of 
true: (fnextbyte, faaxbyte: integer; 
FBuf Changed: Boolean; 
fbuffer: arzayCQ . . 511] of byte; 
fiuparrow: integer) ) ; 

end; 
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5.1.4 System Communication Area Definition 


type 

ptext » "text; 

syscomrec » record sioresult: integer; 

processno: integer; 
freeheap: pbytes; 
j table: paddr table ; 
sysout: ptext; 
sysin: ptext; 
sysdevtab: pdev table; 
pdirname: pstring64; 
utable: puaddr table; 
today: daterec; 
codejtaddr: longint; 
nextpcono: integer; 
numpros : Integer ; 
pcotable: pproctable; 
pbootname: pstring64; 
memmap : ''memr ec ; 
boo tdev : integer ; 

end ; 


5.1.5 Layout of the Device Table 


Type 

devrange » 0 . . .HAXSEV; 

pdevtable » "devtabcec; 

devtabrec « record maxdevno: integer; 

dt: array [devrange] of 

record comnds : integer ; 
driver; pbytes; 
Blocked: Boolean; 
Mounted: Boolean; 
devname: vid; 
devsize: integer; 

end; 

end; 


5.1.6 Layout of the Process Table 
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ppcocrec ■ '‘procrec; 

ptocrec ■ recpcd d: array [0 .. 7] of longint; 

a: array [0 .. 7] of longint; 
no : integer ; 

end; 


pproctable » ‘'pcoctable; 

pcoctable ■ array [0 .. MAXPROCSSS] of pcocrec; 
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3.2 Procedure Interfaces in PASCAL 


5.2,1 Unit Input Output 


Procedure CTNITPEAO ( uni tno : Integer; 
buffer ipbytas ; 
count: Integer; 
blocicno: Integer; 
mode: Integer) ; 

Procedur e UNITWRITS ( on i tno : Integer ; 
buffer :pbytes; 
count : Integer ; 
blocicno: Integer; 
mode: Integer) ; 

Procedure 0NITCL2AiUunitno: Integer) ; 

PUBCtlon UNITBUSY(unitno: Integer) : Boolean; 

Procedure OMITSTATUS (unitno: integer; 

▼ar buffer; pbytes; 
control: integer) ; 


Procedure OIOINIT; 
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S.2.2 File Input Output 


Procedure 

procedure 

procedure 

procedure 

procedure 

function 

procedure 

procedure 

function 


FINIT(f; pfib; recbytes; integer); 

FGET(f ; pfib) ; 

FPUT(f ; pfib) ; 

FOPEN ( f pathname : ps tr ing6 4 ; 
f: pfib: 

NewFlag: Boolean) ; 

FCLOSECf: pfib; fmode: integer) ; 

FREAOCBAiKf: pfib): byter 

FWRlTSCHJiKCf ; pfib; ch: byte; fsizei 

FSEBXCf: pfib; frecno: longint) ; 

BLaCSIQ(f: pfib; 

fbuff: pbytes; 

fblockar fbaek: integer; 

ReadFlag : Boolean) : integer ; 


integer) ; 
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Chaptac L 


Introduction 


Chapter 1 
Introduction 


The Linker and Library utilities are a pair of corapL amen tar y 
rograras which aid in the ptocase of generating executable 
rograms under the MERLIN operating system. 

The Linker links or binds relocatable object-code modules, and 
optional modules from libraries, to form a program which is 
executable. 

The Library utility builds a library from relocatable 
object-code modules. Such a library can contain frequently used 
procedures (such as the mathematical functions of FORTRAN) which 
can be used in subsequent link processes. 


1.1 auildinq an Executable Program 


To get from the source text of a program to an executable 
abject code file, the user must proceed as follows: 

1. The source file is compiled or assembled. The result of 
compiling or assembling is a self -relocatable object-code 
file, along with listings and error diagnostics. This 
process continues until a "clean" compilation or assembly 
is obtained. 

2. The relocatable object-code is linked, possibly including 
run-time support libraries, to generate executable code 
into a disk file. 

3. The program can then be run (executed) on the machine 
simply by typing its filename. 

The following chapters in this manual describe the Linker and 
Librarian object-code management system. 


Linker/Library Reference Manual 


Page 1 



Introduction 


Chaotar i 


4 


1.2 Overviaw and Lavout of this Manual 


Chapter 2 covers the Linker, its use, options and messages. 

Chapter 3 describes the Library management utility and how to 
use it to build a library o£ relocatable object-code modules. 

Chapter 4 is a detailed description of how object-code files 
are constructed, together with details of the various types of 
blocks that go to make an object-code file. 
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Chapter 2 
Linker 


The Linker is a utility which accepts files of relocatable 
object-code generated by the various compilers and assemblers, 
plus library files generated by the Library utility, and links or 
binds those into a form suitable for execution. 

The Linker can also perform a partial link, where a collection 
of relocatable object-modules is bound into one file that can be 
used in future linking operations. This is described later on in 
this section. 

AS well as binding' together relocatable modules from various 
language processors, the Linker can search libraries of commonly 
used functions, (such as the PASCAL run time environment) , and 
link those modules that are referenced into the final loadable 
output file. 

In order to link relocatable modules into an executable 
object-code file, the Linker needs the following pieces of 
information: 

. The optional name of the listing file where the Linker messages 
and memory map information is to be listed. If no listing file 
name is given, no memory map information is generated. 

. The name of the object-code file in which to write the final 
linked output. 

. The name(s) of the file (a) from which the relocatable 
object-code is read. 

. A list of one or more libraries which are to be used to satisfy 
external references within the object-code file. 

A typical Linker tun is shown below. Linker responses are in 
bold face text, and user . input is underlined . 
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Sxample oC Linker Usage 


% linker 

LUIKER - MC6SQQQ Object Code Linker 
20-Jul-ai 

(C) 1981 Silicon Valley Software, Inc. 


Listing ?ila - /console 
Output fileC.OBJl - mvpcoqlinked 
Input file [.OBJ] - mypcoq 
Input file [.OBJ] - paslib 
Input file [.OBJ] - 

..... Lots of Linker Messages 


% 


The Linker keeps prompting for more "Input files" until an 
empty line (carriage return) is entered. This enables the entry 
of a whole list of libraries as places from which to satisfy 
external references. The last one entered is usually the name of 
a run-time library (PASLIB in this example). A ".obj" suffix is 
added to all input filenames if it is omitted from the filename 
when entered. . 

If the Linker cannot find a specific input file, it displays .a 
message to the effect: 

*** Warning - Can ' t open input file *** 

and repeats the prompt for an input fils. The incorrect filename 
is simply ignored and the link can be completed with no adverse 
consequences. 


2.1 Linker Options 


Linker options are supplied on the command line when the Linker 
is called up. Linker options are introduced by a sign, a 
sign, followed by a letter, or a The options are as follows; 

? Display status information. 

q The -q option disallows quick-load format for the executable 
object-code file, and forces overlay format. The +q option 
(the default) allows quick-load .format. 
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u The +u option lists anrefarenced entry points. The default is 
-u. 

a The +m option prints the memory map in the order in which 
modules are linked. The default is -m. 

a The +a option prints the memory map in alphabetical order. The 
default is +a. 

3 The +s option prints symbols that start with the "%" sign. 
Such symbols are used for compiler generated symbols. The 
default is -s or do not print "%" symbols. 


2.2 Linker Error Messages 


The Linker can display various error messages in the course of 
its operation. The error messages are self-explanatory. Thera 
are three grades of error messages, with different outcomes: 


Warnings 


Errors 


Fatal errors 


are correctable errors. The error can be 
corrected and the link proceeds. For example, 
misspelling a filename will result in a message 
to the effect that the file cannot be opened, at 
which point the filename can be retyped. 

are cocrectable in - that the user can proceed 
with the link process, but the generated 
object-code file is not created properly. 

are those from which the Linker cannot correct 
or recover. In those cases the linker returns 
to the shell. 


2.3 Partial Linking 


As mentioned above, the Linker can perform a partial link, 
where the final output is not neccessarily executable, but a 
collection of separate relocatable object-code files can be 
combined into one file. The resultant file can then be used as 
an input file in subsequent link operations. The output of a 
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partial link can have unsatisfied external references. 

If, for any reason, the linxed object file has not had all its 
external references satisfied, the linker displays a massage to 
the effect: 

The output is not executable 

This message appears when external references are not satisfied. 
It may mean that a program was missing some subroutines from a 
library (maybe the user forgot to include the library in the link 
process) , or it also can appear when doing a partial link, in 
which case the message is to be ignored, since the full link will 
be done at a later date. 
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Chapter 3 
Library Utility 


The Librarian binds compiled or assembled relocatable 
object-coda modules into a collection called a library . The 

purpose of a library is to provide a repository for commonly used 

object modules that have to be present when linking (see the 

Linker description) / such that the common modules and up bound 

together into the final executable code module. 

Che library utility typically wants the following pieces of 
information form the user: 

. The name of the file which is to receive the listing (results 
and log) of the library process. 

. The name of the file which is to contain the generated library 
when the library generation process is complete. 

. The narae(s) of file(s) (with the .obj) suffix, which contain 
the constituent parts of the library to be generated. 

A tyoical Librarian session appears below. Note that Librarian 
responses ate in bold face text and user inputs are underlined . 


% library 

T.TBnAHT - MCSaOOa Library Utility 

20-Jul-ai 

(C) 1981 Silicon Valley Software, Inc. 


Listing file - /console 
Output gilef.OBJl - bodleian 
Input file [.OBJ! - bookshelf 
Input file [.OBJ] - stacks 

libratUn 

I, L Librarian banner Jlnb rb, apabiHad inpur ma U laauea 
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a message to the effect: 

The file 'whatever .obj ' can't be opened 
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Chapter 4 

Object Pile Fonnats 


This chapter describes the layout of the object-code files that 
the Iiinlcer and Librarian can process. The various code blocks 
are described in sufficient detail that a compiler writer can 
generate object-code that is acceptable to the Linker and 
Librarian. 


4.1 Notation Used to Describe Object File Formats 


The symbol is read as "defined to be". Where a whole 

list of objects appear to the right of a "pile" of signs, 

it implies a choice of any of the objects. 

Objects enclosed in "angle brackets", "<* and ">" are syntactic 
objects which are defined in terms of other objects. 

An object followed by an asterisk sign, can be repeated 

"zero to many times" (the list of objects can be empty) . 

An object followed by a plus sign, "■►•, can be repeated "one to 
many times” (there must be at least one of that object) . 


4.2 Linker Pile Layout 


This section is a description of the Linker File at the "top 
level" . 


<Link File> <Module Fila> 

<Library File> 
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: ; « <Onit File> 

<Execute Flle> 

<Module File> <Module>* EOF marie 

<Library File> <Libtary Module Bloc!e>-t- <Library Entry 31ock> + 

<Module>+ <Taxt 31ock>* EOF Mark 


<anit Fila> <Unit 31ock> <Module>-t- <Text 31ock> EOF Mark 


<Execute File> <Exacutable Block> <Module>* 

<Quick Load Block> 

<Module> <Module Name 31ock> <Other 31ock>+ <End 31ock> 


<Other Block> 


Entry Block 

External Block 

Start Block 

Code Block 

Relocation Block 

Conmon Relocation Block 

Common Definition Block 

Short External Block 

Data Initialization Block 

FORTRAN data area definition block 

FORTRAN data area Initialization Block 

FORTRAN Data Area Reference Block 

FORTRAN Executable Data Area Initialization Block 

FORTRAN Executable Data Area Reference Block 


4.3 Byte Level Description of Linker Blocks 


All Linker and Librarian object-code blacks start with a single 
"identifier byte*. This block identifier takes values from 30 
(base 16) upwards. The choice of values greater than 30 (base 
16) is an attempt to minimise the probability that a regular 
ASCII text file is mistaken for the start of an object-code 
block . 
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4.3.1 30 - Module Name Blocic 


byte — > 0 

4 

12 

20 

24 


30 

size 

module name 
segment name 

csize 

comments 


1 + + 

1 30 I size (3 bytes) | 

— _H H + 

module name 
(3 bytes) 

+ 

segment name 
(3 bytes) 

(. — 1 - 

I csize (4 bytes) 1 

I conments (24 .. size-1 bytes) ... | 

Hexadecimal 30 indicates a Module Name Block. 

Number of bytes in this block. 

Blank padded ASCII name of module. 

ASCII name of segment in which this module will 
reside. 

Number of bytes in the code block for this 
module. 

Arbitrary information - ignored by the Linker. 
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4.3.2 31 - 

End 

aiocic 




byte — > 

0 1 

31 1 size (3 bytes) 





4 1 

csize (4 bytes) 


1 

•— f 


31 


Hexadecimal 31 indicates this is 

an 

End Block. 

size 


Member of bytes in this 
000.003. 

block 

- 

it is always 

csize 


Mumber of bytes in the 
module. 

code 

block for this 
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byte — > 


32 

size 

link name 
user name 
loc 

commenta 


+ + + + 4 . 

0 

4 
3 

12 

20 
24 

Hexadecimal 32 indicates this is an Entry Point 
Block . 

Number of bytes in this block. 

Blank padded ASCII Linker name of entry point. 

Blank Padded ASCII user name of entry point. 

Location of entry point relative to this 
module. 

Arbitrary information - ignored by the Linker. 


I 32 I size (3 bytes) | 

link name I 

(3 bytes) | 


user name 
(3 bytes) 

I loc (4 bytes) | 

I comments (24 .. size-l bytes) ... | 

4 ———-+ 
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4.3.4 33 External Reference Blocic 


byte — > 


Q 

4 

a 

12 

20 

24 


lS+4*n 


1 

1 size (3 bytes) 

-- f 

1 

link name 
(3 bytes) 

user name 
(3 bytes) 

1 

ref 1 (4 bytes) 

1 

i 

ref 2 (4 bytes) 

i 

i 

• • « 

1 

1 each 

reference consumes 4 bytes 

1 

1 

• • e 

1 

1 

ref n C4 bytes) 

1 

-+ 


33 


size 


Hexadaciflial 33 indicates this is an External 
Reference Blocic. 

Humber of bytes in this blocic. 


link 

name 

Blank padded ASCII Linker 

reference. 

name of 

external 

user 

name 

Blank padded ASCII user 

reference. 

name of 

external 

ref 

1 

Location of first 
module. 

reference 

relative 

to 

this 

ref 

2 

Location of second 
module. 

reference 

relative 

to 

this 

• . 

• 

Other references. 





ref 

n 

Location of last 

reference 

relative 

to 

this 


module . 
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4.3.5 34 - Starting Address Blocic 


byte — > 0 

1 34 1 size (3 bytes) 

— h 

4 

1 start (4 bytes) 


3 

1 gsize (4 bytes) 


12 

1 comments (12 .. size-1 bytes) ... 

1 

34 

Hexadecimal 34 indicates this 

is 


Address BIoclc. 

Number of bytes in this bloclc. 

Starting address relative to this module. 
Number of bytes in the global data area. 
Arbitrary information - ignored by the Linker. 


4.3.6 35 - Code Block 


byte — > 


size (3 bytes) 


as 

size 

addr 

object-code 


addr (4 bytes) | 

object-code (8.. size-1 bytes) ... 1 

Hexadecimal 35 indicates this is a Coda Block. 

Number of bytes in this block. 

Module-relative address of first code byte. 

The object-code •- always an even number of 
bytes. 
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4.3.7 36 - 32-Bit Relocation Block 


> 0 

1 

36 1 size (3 bytes) | 

4 

1 

addr 1 (4 bytes) | 

12 

1 

addr 2 (4 bytes) | 

16 

1 

1 

. ' . ' i 

each addr consumes 4 bytes | 


1 

* : * 

12+4*n 

1 

addr n (4 bytes) | 


36 

size 
addr 1 
addr 2 

• • « 

addr n 


Sexaideciaal 36 indicates this is a 32-bit 
Relocation Block. 

Number of bytes in this block. 

Location of first address to relocate. 

Location of second address to relocate. 

Locations of other addresses to relocate. 

Location of last address to relocate. 
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4.3.3 37 - Common Block Reference 


H 

> 0 ! 

87 1 size (3 bytes) 1 

4 

common name 


(3 bytes) 

12 1 

ref 1 (4 bytes) | 

IS 1 

ref 2 (4 bytes) | 

20 I 

! . • • • ! 

1 each reference consumes 4 bytes | 

1 ' . ^ . 

8+4*n 

H 

i ref n (4 bytes) j 


37 Hexadecimal 37 indicates this is a Common Block 

Reference. 


size Mumber of bytes in this block, 

common name Blank padded ASCII common block name. 


ref 

1 

Location 
module . 

of 

first 

reference 

relative 

to 

this 

ref 

2 

Location 

module. 

of 

second 

reference 

relative 

to 

this 

• . 

. 

Other references relative to this module. 



ref 

n 

Location 

of 

last 

reference 

relative 

to 

this 


module. 
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4.3.9 88 - Common Block Definition 


byte — > 


38 


size (3 bytes) 

— H 

common name 
(8 bytes) 


12 { dsiza (4 bytes) 


38 

size 

common name 

dsiza 

comments 


16 I comments (IS .. size-1 bytes) ... | 

^ 4 - 

Hexadecimal 38 indicates this is a Common Block 
Definition. 

Number of bytes in this block. 

Blank padded ASCII common data area name. 

Number of bytes in this common data area. 
Arbitrary information - ignored by the Linker. 
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4.3.10 39 - Short External Reference Slocic 


byte — > 0 I 39 j size (3 bytes) | 


4 


12 


20 


13+2*n 


Hexadecimal 39 indicates this is a Short 
External Reference Block. 

Number of bytes in this block . 

Blank padded ASCII Linker name of external 
reference. 

Blank padded ASCII user name of external 
reference. 

Location of first reference relative to this 

module. 

Location of second reference relative to this 

module. 

Locations of other references relative to this 
module. 

ref n Location of last reference relative to this 

module . 

The Linker does not yet support the short external reference 
block. It is intended to provide for one-word offsets that are 
either filled in with call-relative, short-absolute calls, or 
possibly calls indexed by an A-register, probably A4. The Linker 
will support this type of block in the future, and compilers will 

have an option to control the kind of generated call. 


39 

size 

link name 
user name 
ref 1 
ref 2 


link name 
(3 bytes) 


user name 




(3 bytes) 



1 ref 1 (2 

bytes) 1 ref 2 

(2 bytes) 

1 

1 . ' 

. 1 ref n 

(2 bytes) 

1 
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4.3.11 3A - FORTRAN Data Area Definition Block 


byte — > 


3A 

size 

data area 
dsize 


0 1 3A 1 size {3 bytes) 1 

4 

12 

Sexadecimal 3A indicates this is a FORTRAN Data 
Area Definition Block. 

Number of bytes in this block. 

name Blank padded ASCII name of FORTRAN fixed data 
area. 

Size of this data area. 


data area name 
(3 bytes) 

dsize (4 bytes) 


f — ( 


Page 20 


Linker/Library Reference Manual 



chap tat 4 

4.3.12 3B 
byte — > 

33 

3iza 

data area 

daddc 
data 
00 * 


Object File Formats 


FORTRAN Data Ar^a Initialization BIogIa 


A 

0 1 

33 1 size (3 bytes) | 

4 

data area name 


(3 bytes) 

12 1 

daddr (4 bytes) | 

16 

data occupies bytes 16 .. size-1 

H 

in the rest of the block | 00 * 


Sexadecimal 33 indicates this is a FORTRAN Data 
Area Initialization Blccic. 

Nunbec o£ bytes in this block. 

name Blank padded. ASCII name of FORTRAN fixed data 
area. 

Starting address for this data. 

The initialization data. 

If the size of the data block is odd, there is 
one byte of 00 added to make the block an even 
number of bytes in size. 
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4.3.L3 3C - FORTRAN Data Area Reference Block 


byte — ' 


0 

4 

12 

16 


ac 


-+- 


— I — — 

size (3 bytes) 

— — — -+ h- 

data area name 
(3 bytes) 


ref 1 (4 bytes) 
ref 2 (4 bytes) 



I each reference consumes 4 bytes 


3+4*n I ref n (4 bytes) 


3C 

. size 

data area 

ref L 
ref 2 
• • • 
ref n 


Hexadecimal 3C indicates this is a FORTRAN Data 
Area Reference Block. 

Number of bytes in this block. 

name Blank padded ASCII name of FORTRAN fixed data 

area. 

location of first reference. 

Location of first reference. 

Location of other references. 

Location of last reference. 
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4.3.14 3E - Quicic Load Executable Blocic 


0 

1 ■ 3E 

1 

size (3 

bytes) 

1 

4 

1 

Start 

location 

(4 bytes) 


3 

j 

data 

, size (4 

bytes) 

1 

12 

1 code 

block 
. — +- — 

bytes (12 

:. . size-1) . . . 

1 

-+ 


3E 

size 

start location 
data size 

code blocit 


Hexadecimal 3E indicates this is a Quick-Load 
Executable Block. 

Number of bytes in this block. 

Relative starting address of the code block. 

Total number of bytes in global common data 
areas. 

The absolute, self-celoca table code block for 
this program-. 
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4.3.15 3F - Executable Block Definition 


> 0 

I 3F 1 size (3 bytes) 

1 

4 

1 jump table address (4 bytes) 

1 

3 

1 jump table size (4 bytes) 

1 

12 

1 data size (4 bytes) 

1 

16 

o 

o 

o 

o 

c 

UJ 


20 

j 00 i 00 j 00 j 00 

1 

— + 

24 

I size 1 (4 bytes) 


28 

1 size 2 (4 bytes) 

1 


I • • e 

1 

24+n*4 

1 size n (4 bytes) 

1 

28+n*4 

1 jump table bytes (... size-1) .. 

A h— 1 -H 

« 1 


3F Hexadecimal 3F indicates this is an Executable 

Block Definition. 

size Humbec of bytes in this block, 

jump table address 

Absolute load address of jump table, 
jump table size Number of bytes in the jump table. 

data size Total number of bytes in global common data 

areas. 

num Number of FORTRAN Data Areas. 

00 00 00 00 00 00 

six bytes of zero filler. 

size 1 Size of first FORTRAN Data Area. 
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size 2 Size of second FORTRAN Data Area. 

. . . Sizes of other FORTRAN Data Areas, 

size n Size of last FORTRAN Data Area. 

jump table The jump table itself, including the executable 

code for the loader. For a further description, 
see the section on "Executable Block Details". 
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4. 3. IS 90 - Library Module Blocic 


byte — > 0 


4 


12 I msize (4 bytes] 


16 

1 

caddr 

(4 bytes) 






— K- 



20 

1 

taddr 

(4 bytes) 


1 

24 


tsize 

(4 bytes) 


1 

23 


module count 

1 module 

1 1 

32 

1 

module 2 

1 

« • 

1 



module n-1 

1 module 

n 1 


Hexadecimal 90 indicates this is a Library 
Module Blocic. 

Number oC bytes in- this block. 

Mame of this module. 

Number of bytes of coda in this module. 

Disk address of module. 

If non-zero, is the disk address of the text 
block. If zero, there is no text block. 

Size of text block. 

Number of other modules that this module 

references . 

Number of the first module referenced. 

Number of the second module referenced. 


90 

size 

module name 
msize 
caddr 
taddr 

tsize 

module count 

module 1 
module 2 


90 

1 

size (3 bytes) 


—4— 

module name 
(3 bytes) 
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. . . Numbecs of other modules referenced, 

module n (Tumber of the last module referenced. 

4.3.17 91 - Library Entry Block 

byte — > 0 

4 

12 
14 


+ — 

1 

1 

^1 

i 

1 

— + 
1 
1 
1 

size (3 bytes) 

] 



link name 
{8 bytes) 


1 

module 

i . 

• . 

1 address (4 bytes) | 
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4.3.13 92 - Unit Bloctc 


bvte. — > 


Q 

4 --.——. 

1 92 

1 size (3 bytes) 

4 


unit name 
(3 bytes) 

12 


caddr (4 bytes) 

IS 


taddr (4 bytes) 

20 

1 

tsize (4 bytes) 

24 

1 

gsize (4 bytes) 


Hexadecimal 92 indicates t.hat this is a Unit 
aiocic . 

Number of bytes in this block - always OOOOIC. 
Name of this unit. 

Disk address of module. 

Disk address of text block. 

Size of text block. 

Number of bytes of globals in this unit. 
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4.3.19 93 - FORTRAN Executable Data Area Reference Block 


H + 


0 


93 

1 size (3 bytes) 

4 


area 

number 

i ....... . 

6 



ref 1 

(4 bytes) 

10 

1 


ref 2 

(4 bytes) 


1 


• 

• • 

— -.-H 


I each reference consumes 4 bytes | 


2+4*n 1 

ref n (4 bytes) | 

93 

Hexadecimal 93 indicates this is 

size 

Executable Data Area Reference Block. 
Number of bytes in this block. 

area number 

Data area number. 

ref 1 

Address of first reference. 

ref 2 

Address of second reference. 

. . . 

Addresses of other references. 

ref n 

Address of last reference. 


a 


FORTRAN 


Linker/Dibrary Reference Manual 


Page 29 



Object File Focmats 


Chapter 4 


4.3.20 94 - FORTRAN Executable Data Area Initialization Slock 


+ — + 1— -+ K 

byte — > 0 I 94 | size (3 bytes) | 


4 I data area number | 

6 I daddr (4 bytes) | 

10 I initialization data | 



94 Hexadecimal 94 indicates this is a FORTRAN 

Executable Data Area Initialization Block. 

size Number o£ bytes in this block. 

data area number Number of the FORTRAN Data Area. 

daddr Starting address for this data. 

initialization data 

The data to fill the block with. 

00 If the size of the initialization data is an odd 

number of bytes, a filler of 00 is appended to 
make it an even number of bytes. 
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4.4 Executable Block Details 


This section describes the layout of an executable block. It 
includes details of the jump table and segment tables. 


4.4.1 Layout of an Executable Block 


> 0 

1 

3F 1 size (3 bytes) 

1 

4 

1 

Jump Table Address (4 bytes) 


3 


Jump Table Size (4 bytes) 

1 

12 

1 

Data Size (4 bytes) 


16 


Num 1 00 1 00 


20 

1 

o 

O 

o 

O 

o 

o 

o 


24 

1 

Size 1 (4 bytes) 

1 

28 


Size 2 (4 bytes) 



1 

* • • 


20+4*n 

1 

— 

Size n (4 bytes) 

_1 


24+4*ti I Jump Table (... size-1 bytes) ... [ 

3f Sexadecimal 3F indicates this is an Executable 

Block Definition. 

size Number of bytes in this block, 

jump table address 

Absolute load address of jump table, 
jump table size Number of bytes in the jump table. 
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data size Total number of bytes in global common data 

areas. 

num Number of FORTRAN Data Areas. 

00 00 00 00 00 00 

six bytes of zero filler. 

size 1 Size of first FORTRAN Data Area. 

size 2 Size of second FORTRAN Data Area. 

. . . Sizes of other FORTRAN Data Areas. 

size n Size of last FORTRAN Data Area. 

jump table The jump table itself, including the executable 

code for the loader • 

If any FORTRAN Executable Data Area Initialization Blocks are 

present, they must immediately follow the executable block. 
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4.4 


A4 


2 Format of the Jump Table 


H 

> S5TOP 

- 

-H2 

^7umber of Segments' (2 bytes) | 

Main Segment Table (32 bytes) { 

+•34 

Segment Table #2 (32 bytes) 
Segment Table i>n (32 bytes) 

2+n*32 

Dummy Table 8«n+l (4 bytes) | 

i $_START Descriptor (10 bytes) j 


Segment #1 P#2 Descriptor 
Segment H Pfn Descriptor 


Segment #2 P#1 Descriptor 
Segment t2 Pfn Descriptor 

i Segment #3 ?fl Descriptor j 

i ... ^ 1 

1 Seg. #m P^n Descriptor (10 bytes) | 

-20 

Address of S£MOVEl (4 bytes) j 

-16 

Address of Buffer (4 bytes) | 

-12 ' 

Address of Code File (4 bytes) j 

-8 

Active Segment List (4 bytes) | 

-4 

Address of $ST0P (4 bytes) | 

SSLOADIT 

Object -cods neccsssary to I 


load and execute a segment. 


All segment 
descriptors 
are 10 bytes. 
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4.4.3 Layout of a Segment Table 

A Segment Table consists of eight 32-bit values: 


0 

1 Address of first descriptor 

— -f 

4 

1 Pile Address of Segment 

1 

3 

1 Size of coda in bytes 

1 

12 

1 Actual Address in Memory 

1 

IS 

1 Scratch Return Address 


20 

1 Segment Reference Count 


24 

1 Active Segment-list link 

1 

23 

1 ... Reserved . . . 

— “h 
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4.5 Loading a Segment 


A. segment is Loaded into memory when the first call to one of 
its procedures is executed. Such a call is always via a 
descriptor in the jump table. 

The JSR to S5L0ADIT executes the loader from its entry-point 
'5$L0ADIT*. The loader is able to tell which segement to load by 
comparing the place from which it was called with the limits of 
the segment-table entries found in the first part of the jump 
table. The loader then performs the following actions: 

1. The loader loads that segment. 

2. Fixes up all the JSR' a to JMP's, so that further calls upon 
that segment jump directly to the entry-point instead of 
calling the loader . 

3. Saves the calling routine's return address in the segment 
entry. 

4. Patches the return address on the stack to return through 
the anti-loader entry-point '$$RZM0VE1'. 

5. Jump to the procedure entry-point which caused this loader 
invocation in the first place. 

Further calls to entry-points in the segment are thus only 
slowed by a single JMP instruction instead of a loader call. 
Whan the initial call to that segment eventually returns, it will 
pass through '$$R£MOVEL', which removes that segment and reclaims 
the memory which that segment uses. 


4.6 Running a Program 

When a program is executed, the program called 'cun' performs 
the following steps: 

1. The file containing the executable program is opened, 
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2. It is checlced to see if it is the correct format, for 
example, the first byte should be 3P2.6' 

3. The jump table is Loaded into the proper Location in 
memory, and 

4. ' A JSa to JT+Word { JT) *32+2 is executed. 

The normal overlay procedure then takes control to overlay the 
main segment and begin execution at its starting address. 


?age 38 


I>inkar/Libr ary Reference Manual 





F i g a i 


Corvus Systems 'TechnioeZ Note 6 
Writing d Corvus CONCEPT Driver 


Subject: Writing a Corvus CONCEPT Driver 

Rev Lvl: Ot 08-2S-82 L. Franklin 

01. 11-08-82 L. Franklin (Update interrupt vectors) 


This Teolinical Note discusses the basic concepts ot writing a 
driver tor Corvus CONCEPT Operating System, then shows an example 
ot such a driver written in 88000 assembler code. 


6.1 Driver Calling Conventions 


Driver parameters are passed in registers, as follows: 


+ 1 

IDO.Wi'Jnitnumber 

: I Th is parameter is useful for validity check:in,g when a 

I 1 given driver can have more than one logical device 

I assigned to a single physical unit (such as a disk). : 

+ + — 

: Dl.L : Butter pointer I 

1 1 Pointer to butter t o / f r om which the data transfer is : 

i I t o b e ma d e . 


I D2.W I Length of data transfer 

i : Number of bytes of data to be transferred. 

+ + 

I D3.W : starting block number 

1 1 Block number at which the transfer is to start This 

! 1 is only applicable to blocked devices. 


04 . W ! C omma nd 

1 Determines what operation (UnitRead, UnitBusy and so 
i on), that the driver is to perform. This parameter is 
I described in detail below. This parameter is the only 
1 valid parameter passed to UnitClear or UnitBusy. 


DS.W 1 Mode 

I Device dependent and control operations 
I whether data compression characters are 
I recognized. 


such as 
to be 


The result of the operation (lORESULT) is returned in register 
D7.W by the called driver. 
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fi Z Driver Command Parameter 


The command parameter passed in register D4 W detines the 
operation to be performed When the driver gets control, the 
cai.er has already verified (trom the device tabie/ that this 
command is valid for this particular driver. The driver must 
hive a minimum of an RTS for each command Drivers must not use 
the heap or stack for long-term storage. The values or the 
command parameter are. 


0 Unitlnstall -- Install the driver 

I When the operating system installs a unit, either 
: at boot time or when a unit is explicitly assigned, 

the driver is called with the install parameter. 

I This section performs any initialization code 

necessary to set up cyclic buffers, place interrupt 
vectors and so on. 


1 JnitRead -- Read from the unit 

Self-explanatory. 


; UnitWrite -- Write to the unit 
Self-explanatory. 


3 i UnitClear -- Clear the unit 

Reset the device to its initial state. Initialize 
I the device, clear pending interrupts and such 


4 ) UnitRusy — Test if unit is busy 

: Check if the unit is ready for data transfer. 

I Driver returns DO B a 1 (TRUE) if data is ready for 

transfer, DOB a 0 (FALSE) otherwise. 


5 : UnitStatus — Return status information from unit 

This command is device dependent Using the 
1 function code (D2.W), the driver can return device 

1 dependent information to the oalier. The buffer 

address may be used as a pointer to a UnitStatus 
par ame ter block. 



UnitUnmount -- Unmount the unit 

This command is used when the unit is deassigned 
At this time the driver must perform any clean up 
or restoring of interrupt vectors that might be 
necessary. 
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43 Static RAM Information 


Each I/O slot is assigned a 2S6 byte area in static RAM. The RAM 
designated for each slot may be used in any manner by the device 
in the slot. Additionally, a 312 byte static RAM buffer is 
available for very temporary operations. This buffer may only be 
used during a single call to the driver. The static RAM 
1 oc a t i ons are: 


Static RAM for I/O slots : 


: 00900-009FF 

t CPs 1 1 r am 

1 

static 

RAM 

for 

slot 

1 

device 

1 

! OOAOO-OOAFF 

1 CPs 1 2 r am 

• + - 

static 

RAM 

f or 

slot 

2 

device 


1 OOBOO-OOBFF 

• 4 - - — - 

'i C P s 1 3 r am 


static 

RAM 

for 

slot 

3 

device 

+ 

; QOCOO-OOCFF 

- 4 -— - 

: CPs 1 4 r am 

• ■ 

static 

RAM 

for 

slot 

4 

device 



: Buffers and stack I 

+ -- — - — — — — — + 

OOOOO-OOEFF I CPiobuf I I/O buffer (312 bytes) I 
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6.4 PROM Default Interrupt Vectors 


The Corvus CONCEPT workstation PROM contains default interrupt 
handlers. If a driver uses system interrupts, the interrupt 
vector used by the driver must be restored when the driver is 
unmounted. The PROK also contains a table of default interrupt 
vectors which must be used when restoring an interrupt vector 
during unmount. The FROM locations for the default interrupt 
vectors are; 


Default interrupt vectors I 


} 

10070-10073 


CP i V e c 1 

1 

level 

1 

interrupt 

vector 

( SLOTS ) 

+ - 

j 

10074-10077 

- > - 

CP i veo2 

— + • 

! 

level 

2 

interrupt 

vector 

(DC 1 ) 

♦ - 

10078-100 7B 


CP i vec 3 


level 

3 

interrupt 

vector 

(OMNI NET) 

+ - 

1007C-1007F 

- + . 

CP i veo 4 


level 

4 

interrupt 

vector 

(DCO > 

- 

10080-10083 


CP i va 0 S 


level 

5 

interrupt 

vector 

(TIMER > 

+ - 

10084-10087 

- + . 

CP 1 veo6 


level 

6 

interrupt 

vector 

( KY8D ) 

+ - 

10088-100 8B 


CP i veo 7 


level 

7 

interrupt 

vector 
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6.S Driver Example 


The coda below (hows an entire driver with explanatory notes 
interspersed. This driver represents a model to be tollowcd in 
broad outline rather than slavishly. Nota the use ol a table of 
3 e 1 f - r e 1 a t i va addresses which the driver uses to jump to its 
various sections. A driver organized In this way can be located 
anywhere in memory and is position independent. This is a 
requirement of the Corvus CONCEPT Operating System. 


IDENT DRVDTACOM 
GLOBAL DRVDTACOM 


DRVDTACOM - The DataComm driver 


Par ame t e r s : 

DO.W - Unit 

numb e r 







Dl.L - Address 

of buffer 






D2 . W - Coun t 









D3 .W - BIoolc 

Numb a r 







D4.W - Command 








D3.W - Aooess 1 

Mode 







Inpu t 

Par ame tars: 



Resu It values: 


C ommand 

Uni 1 

Adds 

Count 

Block 

Mode 

lORESULT 

Busy 

0 

- Install 

DO . W 






D7 . W 


1 

- Read 

DO . W 

D1 

. L 

D2 . W 

D3 . W 

D5 .W 

D7 .W 


2 

- Wr its 

DO . W 

D1 

. L 

D2 . W 

D3 .W 

D5 . W 

D7 . W 


3 

- Clear 

DO . W 






D7 . W 


4 

- Busy 

00 . W 






D7 . W 

DO.B 

S 

- Status 

DO . W 

D1 

. L 

D2 . W 



D7 . W 


i 

- Unmount 

DO . W 






D7 . W 



The unit number for this driver is always passed in register 
DO.W. Ail commands always return an lORESULT in register D7.W. 
UnitBusy is the only command that passes a result back in 
register DO.B. The UnitRead, UnitWrite and UnitStatus commands 
all expect a buffer address in register Dl.L and a byte count in 
register D2 . V. 

In the case of the UnitStatus oommand, the value in register D2..W 
is a control parameter or a UnitStatus function code and not a 
0 oun t . 

The driver must protect A4— A6 whioh is used by the operating 
s y s t em . 


Copyright 1982 Corvus Systems/ Inc. 


November 8 , 1982 



Corvus Syst*m« Technical Note i 
Writing a Corvus CONCEPT Drivar 


Page A 


Ths next ssetion is the entry for a driver/ illustrating how the 
□river Header Table is organised. 


; Driver 

related equates 


: OE i o r eq 
MaxCmd 

equ 3 

e qu 6 

; lORESULT - invalid I/O request 
/ Maximum valid command 


Some UART equates 


i 

□ emP 0 r t 

• qu 

«30f21 

i DataComm 0 UART pointer 

Uda 

• qu 

0 

i UART 

data port offset 

Us t 

• qu 

Z 

; UART 

status port offset 

RdB i t 

• qu 

3 

i Busy 

bit for input 

WrB i t 

• qu 

4 

; Busy 

bit for output 


; Entry 

point 

f 

or the DataComm driver 



DRVDTACOM 






■, Driver 

Header 

Table 





b r a . B 


DcmRaq 

Co to 

start of 

driver execution 


data. 

b 

0 

Dev 1 oe 

bl ocked 






( 0 

■ false. 

1 a true) 


data. 

b 

IS 

Valid 

oommands 

( 1-31 ) 


data. 

b 

82,07,04,00 

Date (year, month, day, filler) 


data. 

b 

dhml an 

Leng t h 

of ID message 

dhm 

data. 

b 

'DataComm driver' 

ID message 


dhml an 

equ 


H-dhm 

Value 

of ID message length 


Ths Driver Header Table is used by ths operating system when 
loading the driver. It must be placed at the driver entry point 
and in the order shown above. 

Valid oommands range ( r om 1 to 31 and are the summation of valid 
command codes for the driver. Command oodes are: 

1 - UnitRead 4 - UnitClaar 16 - UnitStatus 

2 ~ UnitVrite S - UnitBusy 

□ate and ID message are used to help track different versions of 
the driver. Ths ID message and massage length (ia, a string) may 
be up to 30 oharaoters In length. 
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The naitt section illustrates how the various sections o( the 
driver are called depending on the speoific command. 


DomReq movaq 
cmp . w 
b h i . s 

0 1 r . w 
mo V em . 1 
mo ve . 1 
mo V e . 1 
lea 

1 s 1 . w 
move . w 
j sr 

mo vem . 1 


» lOE i or aq , d7 
ttMaaCmd , d4 
DomR t r n 
d7 

dl-di/aO-aa,-(sp) 
dl ,a0 

#DomP o r t < a 1 
DomTABL , a2 
» 1 , d4 

0 ( a2 , d4 . w> , d4 
0 ( a2 < d4 . w> 
<sp>-t-,di-d6/a0-a& 


Sat lORESULT to invalid cmd 
Is command valid? 

No , just return 
Clear lORESULT 
Sava registers 
AO :b Data buiier address 
A1 :■ UART pointer 
A2 Oftset table base addr 
D4 :a Command*2 (word count) 
D4 Offset from DcmTABL 
Call appropriate subroutine 
Restore registers 


DomRtrn rts 


Return to caller 


DcmTABL data . w 
da t a . w 
data . w 
da t a . w 
data . w 
da t a . y 
data . w 


DcmINST-DomTABL 

DomRD -DcmTABL 

DomWR-DcmTABL 

DomCLR-DcmTABL 

DcmBSY-Dc mTA B L 

DomST-DcmTABL 

DcmUNMT-DcmTABL 


Install driver 
Read from DataComm 
Write to DataComm 
Clear DataComm 
Test it busy 
Return status 
Unmount driver 
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The next ( ew code sections illustrate the entry points and give a 
broad view o( the operations pertocaed. 


DcmINST - Install the driver 


DomlNST 


r t s 


code to Initialize 
the device 


Nothing to do in this example 


□ cmtlNKT - Unmount the driver 


DomUNMT 


eta 


code to terminate 
the device 


i Nothing to do in this example 


OcmST - Devioe dependent status request 


□ emST 


r t s 


coda lor status 
. . r eques t 


Nothing to do in this example 


DcmCLR - Clear the OataComm driver 


□cmCLR 


r t s 


code to clear 
device 


Nothing to do in this example 


DemBSY - See if character available 
Returns: DO . B - Result 


DemBSY 

mo veq 

«0 , dO 


b t s t 

»RdBi t ,Us t < a 


bof f . s 

DemBSYr 


mo veq 

»1 , dO 

DemBSYr 

rts 



Assume FALSE (no character ready) 
Character to read? 

No , return 
Set TRUE 
Return 
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1 DomRD 

- Read 

characterfs) from 

Da t aC omm 

□ cmRD 




C r dL o op 

subq . w 

»1 , d2 

Mo re to read? 


bm i . s 

Cr dEx i t 

No , return 

C r dBus y 

b t s t 

«RdB i t , Us t ( a 1 > 

Is char in UART? 


b 0 f f . s 

C r dBus y 

No , try again 


mo ve . b 

Uda < al > , ( aO > + 

Mo V e character t 


b r a . s 

C r dLo 0 p 

Go for next char 

C r d Ex i t 

r t s 


Return 

; OcmWR 

- Wr its 

characterfs) to DataComm 

i 

DcmVR 




Cwr Loop 

subq . w 

#1 , d2 

Mo re to wr i t e ? 


bmi . s 

Cwr Ex 1 t 

No , return 


.... remaining logic similar 



to DomRD except for 



. .. direction of transfer 

Cwr Ex i t 

r t s 


Re turn 


buffer 

ter 
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Subject: Executing a Program from Corvus CONCEPT Pascal 

Rev Lvl: 01- 09-15-82 L, Franklin 


This Technical Note explains the use of the Corvus CONCEPT Pascal 
CALL function which is used to execute a program from within a 
Pascal program. Also, the HALT procedure is described which is 
used by a Pascal program to set the CALL function result for the 
calling program. Both CALL and HALT are internal to the SVS 
Pascal 0 omp list. 

Refer to Technical Note 11 for a summary of callable system 
programs and their associated parameters (arguments). 

10.1 CALL Function Parameters 

The general form of the CALL function is; 

result ;> CALL (filelD, If 1 1 e , Ofile, pArgPtrs, NbrArgs); 
whe re : 

result - is the function result of the called program. The 
function result is one of the following values: 

< 0 - execution error 

0 - no error 

1 - insufficient coda memory 

2 - code file read error 

3 - file not executable coda 

4 - file is not linked 

5 - code file open error 

6 - too many processes <10 maximum) 

7 - insufficient data memory 

8 - terminated by user 

filelD - is a string containing the program file name. If the 
volume name is not specified, the currant volume is 
searched for the specified program file. If the file 
is not found in the current volume, the system volume 
is then searched. If the volume name is specified, 
only that volume is searohed for the program file. A 
program file name with a prefix indicates the 

program file is in the system volume. These are the 
same rules as requesting a program from the coxunand 
1 ine . 
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ICila - is the default input file FIB for the called program. 

INPUT may be used to specify the default input file of 
the current program. 

Ofile - is the default output file FIB for the called program. 

OUTPUT may be used to specify the default output file 
of the current program. 

pArgPtrs - is a pointer to an array of argument string poincets. 
The array contains "NbrArgs" entries. 

NbrArgs - is the number of arguments to be passed to the called 
p r o g r am < ARGC ) . 

If function key labels are in use when the CALL function is 
executed, the calling program is responsible for turning off and 
r e i n i t i a 1 i I ing the function key labels. If the called program 
does not require user input, no special function key label 
processing is required. 

10.2 CALL Function Example with No Arguments 

The following example calls a program (KEN) with no arguments. 

procedure callpgm, 

type str64 a stringC64]; 
pstr44 a /Nstr44; 

strtbl a array fl.lOOI of pstr64, 
pstrtbl a Astrtbl; 
var result: integer; p: pstrtbl, 

begin 
p : a NI L , 

result :a call <‘/CCSYS/KEN‘, input, output, pA,0), 
end ; 

This example outputs a simple memory map to the console. 
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10.3 CALL Function Example with One Argument 

The following example calls a program (SystmMgr) with one 
a r g umen t : 

procedure callpgm; 

type s t r d ‘I a stringC&43, 

pstr64 a ABtr4<l; 

strtbl a array Cl.. 1001 of pstr64; 
pstrtbl a Astrtbli 

var result: integer; si: str&4; pi: pstr64, p: pstrtbl; 

begin 

p :a Spl; pi :a Ss 1 ; si :a 'SETDAT'; 

result :a call <‘!CC. 3YSMGR '.input, output, pA,l>; 

end ; 

This example outputs the currant date to the console. 


10.4 CALL Function Example with Two Arguments 

The following example calls a program (VndowMgr) with two 
a r gumen t s : 

procedure callpgm; 

type stri4 a stringC641; 
pstr64 a Astr64; 

strtbl a array Cl. .1001 of pstr64; 
pstrtbl a Astrtbl; 
var result: integer; 

sl,sZ: str64; pl,pZ: pstr64; p: pstrtbl; 

begin 

p :a 9p 1 ; pi :a 9s 1 ; pZ :a 9sZ; 

si :a 'C3DISP'; sZ ' / CCUTI L / CSH . ALTCHARSET ‘ ; 

result :a call < ' CC . VNOMCR ' , inpu t , o u t pu t , pA , Z ) ; 
end ; 

This example loads the alternate display character set. 

In general, the pstr&4 values (pl,pZ,..,pn> mu st be deolared in 
order since they become the argument string pointer array (the 
compiler allocates these variables sequentially). 
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10.5 HALT Procadura Paramatars 

Tha HALT procadura aata tha CALL function raault for tha calling 
program and tarminataa program procasaing. Tha ganaral form of 
tha HALT prooadura ia: 

HALT < Ra t u r nC od a ) ; 

whara RaturnCoda ia tha intagar funotion raault valua paasad to 
tha calling program. A zaro RaturnCoda ia uaad to indicata a 
auccasaful oomplation. Poaitlva RaturnCoda valuaa are uaad by 
tha Oparating Syatam during program loading. Nagativa RaturnCoda 
valuaa ara uaad to indioata azaoution arrora. 

If an axaoution arror (nagativa RaturnCoda) ia aat during an EXEC 
fila funotion, tha ramaining EXEC oommanda ara ignorad. Syatam 
davalopmant programs, auoh as tha Pascal oompllar and linlcar, sat 
aaacution arror codas if tha program funotion is not auocassfully 
complatad. Tharafora, an EXEC fits with savaral Pascal 
compilations and links ia tarminatad at tha first axaoution 
error, saving t ima by not prooassing invalid data. 
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,Set innction lesult 

ggrg 

4E7S 


423* 

rts 


.Retnin 




424* 







425* 







424* 

CSsltDv - G«t 

SLOTlO diiftr device nvibei ionction 




427* 







420* 

FUNCTION OSsIIDt. inligen 





427* 




ggrt 



430* OSillDi 



tgrt 

4247 


431* 

clr.w 

-(•pi 

,Cet nuibec ol devices 

ggri 

417C 


432* 

bfi .8 

OSieiDe* 

^ 1 

igFA 

301F 


433* 

■ofe.w 

(sp)t,dO 


ggrc 

S04g 


434* 

subq 

14, dO 

,Cet device nuibei 

ggFE 

3F4B 

0004 

433* 

■ove.w 

dO,4(spl 

,Set function lesult 

oig2 

4E7S 


434* 

rts 


.Retuin 




437* 






Hit. ecus. OSI. TEST 


CCLIBkSH 


?ag> li 






430< 

, 







440< 

, pOSoutlD < 

Ctl CoMlilliticn Uiit ID 

poinlti 





441' 

, 







442' 

, FUNCTION pOSostrlD: poiilit, 






443* 

, 



om 




44 4* 

pOSoftc ID 



0104 

2r7i 

out 

0004 

445* 

•Ofl. 

1 pSfsCpi.H.tlip) 

.Ctl pointiE to SpiCoi 

out 

OttF 

0000 

004C 

44t< 

iddi 

I tSCoiirlDUlpp) 

,Gil poinltr It osti ID 

0110 

0004 







till 

4E75 



447' 

Its 


.Rtlnin 





440' 








443< 








430' 

, pGSeiiVad • 

Ctl eicrtil Mindow itetid 

pointii 





451' 

, 







432' 

, FUNCTION pOSemViMl: potnlic. 






433' 

, 



out 




434' 

pOScotV&d 



0114 

2070 

0100 


433' 

ftOft 

1 pSffCti.tf.tO 

,Cit pointiE to SpsCoB 

out 

irti 

0044 

0004 

434' 

•Oft 

I SCcuttwlaOl.Oltpl 

,Gii cutiinl window poinltr 

one 

4E73 



437' 

Its 


.Rilatn 





430' 








43M 

, 







440' 

, pOSfffVad - 

Ctl ■pitta window ticiid 

lorntif 





441' 

, 







442' 

. FUNCTION pOSifiVad (wpOpbi. iilpgtc). 

pointii, 





443' 




0110 




44 4' 

pOStfiVid 



0120 

Z03F 



443' 

■Oft 

1 (ipl«,t0 

.Sail itUrn addtttt 

0121 

301F 



4tt« 

■Oft 

w (splt.dO 

,Cit tpilii window nuibti 

0124 

2F0I 



447' 

■Oft 

1 tO.-ltp! 

.Riilett ritoin addtifs 

0124 

ES40 



440* 

lll.w 02. dO 

,Cit India to window poinltr 

0120 

2070 

out 


447< 

■Oft 

1 pSpiCoi.w.tO 

,Cit poinltr to SpaCoa 

012C 

2040 

0034 


470' 

■Oft 

1 8CwndUt(iO),iO 

,Cit poinltr U window lablt 

0130 

2F70 

0000 

0004 

471* 

■Oft 

1 0(i0,d0),4Up) 

,Cit window poinltr 

out 

4E7! 



472' 

Its 


.Rtloro 





473' 








474' 

, 







473* 

, pOSdtfNik - 

Ctl dt'iet itai polatii 






474* 

, 







477* 

, FUNCTION pOSdt'Nii («nUti. inligtd. 

poinltr; 





470* 

, 



out 




477* 

pOSdtfMti 



0111 

20SF 



400* 

■Oft 

1 (tpit.tO 

.Sail rtlnin addiiit 

out 

301F 



401* 

■Oft 

w (tpIt.dO 

.Oil onil nnabir 

ouc 

cote 

0020 


402* 

■HU 

OUTlio.dO 

.Coaputi intrp India 

0140 

2F00 



403' 

lOft 

1 l0,-(tpl 

.Rttloit tilora addrita 

0142 

2070 

0100 


404* 

■Oft 

1 pSpsCoB W.lO 

,Ctl poinltr to SpaCoa 

0144 

2040 

0014 


403* 

■Oft 

1 SCdifUkUOl.tO 

;Cit poinltr to diaici tabli 

014t 

DlFC 

0000 

0002 

404* 

iddt 

1 02, lO 

,Cil poinltr to diiici ID 

OUO 

DICO 



407* 

tddi 

1 40. tO 


0U2 

DlFC 

0000 

0000 

400* 

iddt 

1 OUTdid.tO 

;l 

out 

2F40 

0004 


407* 

■Oft 

1 t0.4(ipl 

,Sit innetioa riinli 

OUC 

4E7S 



470* 

its 


.Ritnrn 





471* 






Flic 

CCIIB 

.QSI.‘ 

FEET 


ecu BASH 


Fapt 13 






442* 









443' 

, pOSditt - G«( 

tfiltk data pamtai 







444« 

, 








44 5* 

, FUNCTION pOSd<(<. pointtr. 







444 * 

; 




OISE 




447' 

pOSdatt 




USE 

2F7S 

OUO 

0004 

446‘ 

10?t. 1 

pSfsCoi w,4(spl 

,Ctl pointec 

to SpsCoi . 

Ili4 

3itF 

0000 

0020 

444 < 

>ddi . 1 

tsetodaf ,4itp) 

,Get pointar 

to spstii data 

iia 

30t4 








lUC 

4E7S 



SOO* 

Its 


; Ret Din 






501* 







Fill: 

CCII9.0SI.TEIT 


CCLIEISK 

Fige 10 




303> 






300* 

; JBVECT - Jimp to rooUit is sfitti ftcloi 




303' 

, 





904' 

; Ptfiiitirf: DO.V - olliit In 

ifftei lector 




307‘ 

; 


OliE 

2070 

0100 

300< 

JSVECT KOVE.l pSfsCoi.V,AO 

, (AO) • egtcoi 

0172 

2000 

0000 

307* 

HOVE.L SC)tiblt(10l,A0 

■, (AO) • ffifoct 

0170 

2070 

0009 

310> 

HOVE.l 0(AO,DO.V),tO 

, (AO) • desired routine 

017A 

OEDO 


311* 

JHP (AO) 

, Go to itl 




S13* 






S13> 

, 





510* 

, JUVECT - Jnip to routine in uiit oootor 




313< 

, 





310* 

. Fiiiiitorc DO.V - olfitt in 

tier feotor 




317* 

, 


one 

2070 

0100 

3I0< 

JUVECT HOVE.l pSfiCoi.V.AO 

, (AO) < sgscoi 

0100 

2000 

ootc 

317« 

HOVE.l SCutibIi(AO),AD 

, (A0) 3 userfect 

0100 

2070 

0000 

320> 

HOVE.l 0(AO,DO.V),AO 

; (AO) > desired routine 

DUO 

OEDO 


521« 

JKF (AO) 

, Co to it! 




322* 






323> 

, 





320> 

i ICETDIA - Rood o dirtetorr 





323* 






320* 

i proepdurt igitdir (foid: iid, 

fir (die: director;, fit DetBiocted Boolein 




327* 

, fie fdiino 

. integer; fir DifViiid. Booiein), eiteinii, 




320* 



OlOO 

7000 


327* 

ICETDII HOVEQ OSVgttdii.DO 


01 8C 

OOEO 


330* 

MAS JSVECT 





331* 






332* 






333* 

; ZFUTDIE - Write i directorj 





330* 






335* 

i procedure iputdir (fir fdir. 

director;: Idefno: integer); 




330* 



OlOE 

303C 

0074 

337* 

IFUTDIl HOVE.V OSVputdir.DO 


0172 

OODO 


330* 

BlA.S JSVECT 





337* 





rile. CCIIB.OSI.TEXT 


CCLIBASN 


Feqe 13 


S41* END 


ACTIVE 

OOOOOOOi 

lOEWNDFN 

00000020 

SCBOQTDV 

00000031 

3TKHBR 

00000000 

UTDID 

OOOOOOOi 

CLR3C 

OBOOOOIIt 

lOEVNOlV 00000023 

SCBOGTNH 

0000003C 

3TTVPE 

OOOOOOOI 

UTDRV 

OOOOOOU 

CSATTRl 

00000010 

lOEVNOVN 

00000027 

SCCODEUT 

00000022 

SUSPEND 

0000000 * 

UTIODRV 

00000002 

CSATTRJ 

00000011 

lOEVNDVR 

00000021 

SCCVRRK 

0000004! 

SVBUIQ 

00D0002C 

UTLEN 

00000020 

CSBFCK 

OOOOOOOi 

JSVECT 

OOOliEt 

SCCURRV 

00000044 

SVCU 

0000007C 

UTHTD 

00000007 

CSFRSTCH 

OOOOOOOi 

JUVECT 

OOOllCt 

SCDEVTAB 

00000014 

SVCLOSE 

00000020 

UTRO 

OOOOOOIA 

CSLASTCH 

OOOOOOOA 

HKBTBIK 

OOOOOOIA 

SCOIRNAH 

0000001 ! 

SVCRAPTH 

OOOODOiO 

UT5IE 

OOOOOOU 

CSIPCH 

00000004 

HHBTDEV 

00000012 

SCFREEHF 

00000004 

SVDELENT 

00000078 

UTSIT 

OOOOOOU 

C3HA3K 

0000000 c 

KHBTORV 

OOOOOOU 

SClORSa 

00000000 

SVDSPOSE 

00000031 

UT5PT 

OOOOOOU 

CSTBUOC 

oooopooo 

HMBTStT 

00000014 

SCJTABIE 

0000000 ! 

SVFtPDIH 

0000008! 

UTSRV 

00000013 

CURSOR 

00000002 

KKBTSRV 

OOOOOOU 

SCHEHNAF 

00000032 

SVCET 

00000014 

unps 

00000017 

EICRTI 

OOOOMi 

HHBTSV 

OOOOOOU 

SCNUHPRO 

0000002 ! 

SVGETDIR 

00000041 

UTTYP 

00000017 

GRAPHIC 

00000001 

HKHICOD 

0000000 c 

SCNITFRO 

00000021 

SVCETVNH 00000000 

VERT 

00000000 

INSHOD 

00000002 

HHHIDTA 

00000004 

SCPROCNO 

00000002 

5VINIT 

00000010 

VIDOEFLT 

OOOOOOOI 

INVCURS 

00000003 

miOCOD 

0000000 ! 

SCFROTBl 

OOOOOOIA 

SVKARA 

OOOOOOOC 

VIDSET 

00000007 

IHVRSE 

00000000 

HNLOOTA 

00000000 

SCROOTV 

00000040 

SVKAVAIL 

00000044 

VRAFON 

00000004 

lOECLAHF 

00000033 

NOAUTOIF 

00000004 

SCSITTBI 

0000003C 

3VNEV 

00000034 

WRATTRl 

00880020 

I 9 EFNCCD 

00000030 

NOSCROll 

00000003 

SCSUSINH 

0000003A 

SVOPBN 

OOOOOOIC 

WRATTR2 

08000021 

lOEIOREQ 

00000003 

•03ACTSIT 

OOOOOOt 

SCSUSREQ 

0000003C 

3VPUT 

OOOOOOU 

WREASEI 

0080000E 

IOEX1TGTE 

00000033 

•OSACTSRV 

OOOOlOe 

SCSYSIN 

OOOOOOU 

SVFUTDIR 

00000074 

WRBASEY 

OOOOOOU 

lOENFDRV 

0000002D 

•OSALTSLT 

000020 « 

scsrsouT 

oooooooc 

SVRDCHAR 

00000028 

WRBITOFS 

OOOiOOlA 

lOENOBUF 

00000017 

•OSAITSRV 

000030t 

SCTODAY 

00000020 

SVRIEASE 

00000040 

VBCHARFT 

OOOOOOOC 

lOEKODSF 

00000028 

•03DCM1DV 

OOOOEOt 

SCVSERID 

oooooooc 

SVSCHDIR OOOOOOBC 

VRCURADR 

0000000 ! 

lOEHOKTB 

00000027 

*OSDCH2DV 

OOOODAe 

SCVTABIE 

0000001 c 

SVSEEK 

00000030 

VRCUR 3 I 

OOOOOOU 

lOEROOKN 

0000002B 

•OSDISFDV 

0000A4* 

SCVRSDAT 

00000032 

SVUBUSV 

OOOOOOOC 

VRCURSY 

OOOOOOU 

lOENOPRT 

0000002C 

‘OSEETCRT 

OOOOiAt 

3CVR5NBR 

oooooon 

SVUCIEAR OOOOOOOI 

VBCRORSI 

OOOOOOIC 

lOEHOTIH 

0000002A 

<08RFBDDV 

OOOOSOe 

SCVNDTBl 

OOOOOOSi 

SVUINSTl 

00000078 

WRCRORCY 

OOOOOOIC 

lOENOTRN 

00000013 

•OSHAIDEV 

OOOOFie 

StHYP! 

OOOOiU 

3VUREAD 

00000004 

VBHONEOF 

OOOOOOOC 

lOEFRKlN 

00000037 

•OSOHNIDV 

OOOOCCt 

SITFYP9 

OOOOilt 

SVUSTAT 

00000014 

VRHOHEFT 

04000004 

lOETBlFl 

00000031 

•OSSITDV 

OOOOFOt 

STACSIT 

00000004 

SVUVRITE 

00000000 

VRCEHCTH 

00000024 

lOETBUO 

00000032 

•ossintp 

OOOOOOt 

3TACSRV 

OOOOOOOI 

SVVAIOIR 00000084 

VRLHCTHI 

OOOOOOU 

lOETBUV 

00000034 

iOSTIHDV 

OOOOBEt 

STAISIT 

OOOOOOOI 

SWBCHAR 

00000024 

VRLNCTHY 

00000014 

lOETIHOT 

OOOOOOU 

ePOSCURVN 

OOOllOe 

STAISRV 

OOOOOOOA 

SYSBYTES 

00000181 

VRRCDEEN 

00000023 

lOEVIOFN 

0D00003i 

•POSOATE 

OOOlSEi 

STBTStT 

00000000 

SY3KYGDF 

00000114 

WRSTATE 

00000022 

lOEVNDBE 

00000021 

•F03DEVNA 

OOOUie 

STBTSBV 

00000002 

SYSVIN 

00000003 

•IGETDIR 

Oi 01 IA< 

IPEUNDCS 

00000022 

•FOSSTSVN 

ooonot 

STINFO 

oooooooc 

UNDSCR 

OOOOOOOI 

•IFUTDIH 

OOD1IC< 

lOEWNDDC 

00000023 

•FOSUSERI 

000104t 

STINFOl 

00000004 

UTBEF 

OOOOOOOi 



lOEWNDDS 

00000024 

FSTSCOH 

OOOiillO 

STMDRV 

00000002 

UTBU 

OOOOOOIC 



i tcttri. 

342 liaii. 











NOTE 


THE EXAMPLES IN THE FOLLOWING TWO SECTIONS ARE 
EXAMPLES ONLI^. THEY DO NOT REFLECT THE CURRENT 


OPERATING SYSTEM 



Fill. TIHED.DRV.TEIT 


Ftge 1 


1» 

J* 

3* 

4 ‘ 

5* 

<» 

7« 

»* 

U* 

II* 

13* 

13* 

M» 

15* 

U* 

17* 

IB* 

19* 

20 * 

21* 

22 * 

233* 

254* 


lili : tint. drt. tilt 
lite : 2t-SEPTEK8EII-1982 tk 

INCLUDE FILES USED : 

lint. elk. t(il ,HiS CALANDER CLOCK CODE 

/ecAilAi gkl .a». till iOS GLOBAL EQUATES 

B4-C4-B2 tk Addtd fiiiiiA diti btfort TIHERDRV - entif pant 
04-23-12 tk Chinpid lORESULT dtfinitions to asi the jUkil lilt delinitions 
04-23-12 tk Rtiattd folmt niie Iioi tiiet alt . ttit includi 
04-07-12 kk Ckangid lot aim ii?. 4 piocissot kaiid chingis, will find tht 
cartiat addtiii ta gic (litkei 430FE1 ai S30F81I 
added tlatagi lac ta lata aairict addtite 
07-07-82 kb Added Header la dtitet 

07-07-82 kk Filed ettat li egualet lac diflecint rei baaed addices equates 
07-20-82 II Chaiged Mtlta alack la etap/slact clack iu acdic to seta 
seaands aid tenths iiilds (in TIMER. CLK TEXT) 


INCLUDE OS CLOBALS HERE 
LIST ON 



rill TIMER DRV TEIT 


Figt ] 


25«* , 



fill: TIMER. DRV. TEIT 


Fift 3 



250* ; EQUATES FOR All TIMER DRIVER SOFTWARE 



2S?» ; 





2i0« ; BIT NUMBER DEFINITIONS 



2il« ; 




00000000 

2i2* BITDO 

EQU 

0 

BIT 0 

00000001 

2i3* BITDl 

EQU 

1 

BIT 1 

00000002 

244* BITD2 

EQU 

2 

BIT 2 

00000003 

2iS* BITDO 

EQU 

3 

BIT 3 

00000004 

2ii* BITD4 

EQU 

4 

BIT 4 

00000005 

2i7* BITDS 

EQU 

5 

BIT 5 

OOOOOOOi 

2iE< BITDi 

EOU 

4 

BIT 4 

00000007 

2i7* BITD7 

EQU 

7 

BIT 7 


270« ; 





271* ; TIMER INTERRUPT VECTOR ADDRESS 



272* , 




00000074 

273* VECTOR 

EOU 

7000074 

INTERRUPT VECTOR 05 


274* , 





275* , TIMER TABLE INDICES 




274» , 




00000000 

277* TFIACS 

EOU 

0 

TIMER TABLE FLAGS 

00000002 

I70« FTRUSRTN 

EQU 

2 

FOIirrEB TO USER SERVICE ROUTINE 

OOOOOOOi 

277« TCOUMT 

EOU 

4 

0 OF 50 NS. TICKS BEFORE CALL 

00000001 

200* TDVNCNT 

EOU 

0 

WORKING DOWN COUNTER 

OOOOOOOA 

2I1« RECA4 

EOU 

TDVNCNT«2 

REGISTER A4 SAVE AREA 

OOOOOOOE 

202* RECAS 

EOU 

RECA4»4 

REGISTER AS SAVE AREA 


213* ; 





214* i TIMER TABLE FLAGS BIT DEFINITIONS 



205* i 




00000000 

20i* VALIOEKT 

EQU 

BITDO 

VALID ENTRY FLAG 

OOOOOOOI 

207* CONTISHT 

EQU 

BITDl 

CONTINUOUS/ 1 -SHOT MODE FLAG 

00000002 

200* SKIFIST 

EOU 

BITD2 

SKIP FIRST CALL FLAG 

00000003 

207* ENBIDSBL 

EQU 

BITD3 

EHABLE/DISABLE FLAG 


270* i 





271* i BELL PARAMETER BLOCK 

INDICES 



272* i 




00000000 

273* FREQ 

EQU 

0 

FREQUENCY OF BELL 

00000002 

274* PAnERN 

EQU 

2 

PATTERN OF SPEAKER OH AND OFFS 

00000004 

275* OURATN 

EQU 

4 

DURATION OF BELL 


274* , 





277* ; INTERNAL 

FLAG BIT DEFINITIONS 



270* i 




OOOOOOOO 

277* SHUTOFF 

EQU 

BITDO 

SHUTOFF BELL FLAG 


300* i 





301* 1 VIA ADDRESSES 




302* ; 




00030F77 

303* ACR 

EQU 

430F77 

AUXILIARY CONTROL REGISTER 

00030F7D 

304* lER 

EQU 

730F7D 

INTERRUPT ENABLE REGISTER 

00030F7I 

305* IFR 

EQU 

730F7B 

INTERRUPT FLAGS REGISTER 

00030FiD 

304* TILL 

EQU 

730F4D 

TIMER 1 LATCH LOW 

OOOOOFiF 

307* TUN 

EOU 

130F4F 

TIMER 1 LATCH HIGH 

00030Fi7 

300* TICl 

EQU 

730F47 

TIMER 1 COUNTER LOW - READ ONLY 

00030riB 

307* TICK 

EQU 

730F4B 

TIMER 1 COUNTER HIGH 

00030F71 

310* TOLL 

EQU 

730F71 

TIMER 2 LATCH LOW 

40030F73 

311* T2CN 

EQU 

430F73 

TIMER 2 COUNTER HIGH 



Fill TIMER. DRV TCIT 


Pt|i t 


lOOIOFFS 

31 2> SHIFTREG ECU 
313* , 

314* , VIA REGISTER VALVES 
31S> , 

I30F73 iSHIFT REGISTER 

mooDovc 

3li< ACRBTTE 

EOU 

440 

ACR DATA - T1 FREE RUN DISABLE PB7 

00000010 

317* RUim 

EQU 

410 

MASS TO COUNT DOWN T2 

OOOOOOEF 

310* 5T0PT2 

EQU 

4EF 

COHPLEHEKTED RUKTl TO STOP T2 

0000007F 

317> DI3ABL 

EQU 

47F 

DISABLE ALL INTERRUPTS 

ooooooco 

320< EKBLTl 

EQU 

4C0 

ENABLE IRQ FOR T1 

OOOOOOFF 

321> CLEAR 

EQU 

IFF 

CLEAR ALL IFR STAT BITS 

ooooooao 

322* T2IHT 

EOU 

420 

TIMER 02 INTERRUPT FLAG BIT 

OOOOC3SO 

323< TINE 

EQU 

30000 

30,000 MICRO SECONDS 

OOOOOOC3 

324> TIHEH 

EOU 

TIHE/234 

HI OBDER BTTE OF TIME VALUE 

ooooooso 

32S> TIHEl EOU TlHE-(TINEH>ISi) 

32i> , 

327> , CONTEXT SWITCHING DEFINITIONS 
320* , 

LOW ORDER Sm OF TIME VALVE 

oooooosc 

32?' SPNDFLC 

EQU 

SCfUiltq 

SUSPEND FLAG 

0000003A 

330* SPVAITC 

EQU 

SCstidsh 

WAIT SUSPEND COUNTED SEMAPHORE 

00000002 

33 !• CVRPIOC 

EQU 

SCpcecno 

CURRENT PROCESS 1 INOEE 

OOOOOOSE 

33 2> PPTBL 

EQU 

4BB 

PTR TO PROCESS TABLE 

OOOOOORB 

333< 5CHEDPTR 

EQU 

4BB 

PTR TO ENTRY OF SCHEDULER 

OOOOOOII 

334* SCHDA4 

EQU 

4BB 

REG. A4 VALUE FOR SCHEDULER 

OOOOOORB 

33S> SCHDAS 
334* , 

EQU 

4BB 

REG. A3 VALUE FOR SCHEDULER 

oooooocc 

337* PTLEN 

EQU 

ICC 

LENGTH OF PROCESS TABLE ENTRY 

OOOOOOOF 

331* HVNREGS 

EQU 

13 

NUMBER OF REGISTERS SSAVED IN PTBL 

ODOOOC3C 

33>* PTPC 

EQU 

NVHRECS*4 

PROCESS TABLE-FC FIELD 

00000040 

340' PTSR 
3411 i 

EQU 

PTPC*4 

PROCESS TABLE-SR FIELD 

00002700 

343< SCHEDSR EQU 

343* , 

344* , lORESULT ERROR COOES 
343* i 

42700 iSCHEDULER SR-KO IKTERRUFTS 

00000030 

344* IHVPRN 

EQU 

lOEiieoi 

INVALID UNIT IfO PARAMETER 

00000003 

347* NOTLECIT 

EQU 

lOEioiiq 

NOT LEGITIMATE CALL 

00000032 

340* INVTIIIO 

EQU 

lOEIAlid 

INVALID TABLE ENTRY ID 

00000033 

340* TILFVLL 

EQU 

lOEtblll 

TIMER TABLE FULL 

00000030 

330* INVFHC EQU lOElieed 

351* i 

332* i KISCEILANEOVS EQUATES 
353* , 

iMilid IiBctlea eedt 

OOOOOOOi 

354* UNHCHO 

EQU 

4 

UNMOUNT COMMAND CODE 

00000004 

333* ENAILEC 

EQU 

4 

ENABLE FUNCTION CODE 

OOOOOOOI 

334* CARRIST 

EQU 

ill 

CARRY SET IN CCR 

OOOOOOII 

337* ON 

EQU 

1 


OOOIOOlO 

331* OFF 

EQU 

0 




rili: TIMER. OSV. TEXT 


Pige S 


3iO> 

3U> 

3i2* 

3i3* 

3i4« 

Hi* 

3U< 

347* 

3i6> 

3<S* 

370« 


TIMER IHTERRtIFT SERVICE ROUTIKE 
INTERNAL REGISTER USEACE . 

AO - TEMP 
A! - TEMP 

A2 - TIMER TABLE ADDRESS 

A3 - ADDRESS OP CURRENT EKTRV'S FLAG'S LS'N ORDER SHE 

DO - TEMP 
D1 - TEMP 

D2 - INDEX TO CURRENT ENTRV IN TIMER TABLE 



File: 

TIHER 

DRV TEXT 



Fill 0 






372* 








373* 

TIHER IHTERRUFT SERVICE ROUTINE 






374* 

THIS ROUTINE IS INVORED WHEN THE 30 HILLISECOND 

INTERVAL TIHER INTERRUFT 





375* 

OCCURS. IT CHECES 

EACH ENTIT OF THE TIHER TABLE TO SEE IF IT'S USER SERVICE 





370* 

ROUTINE SHOULD BE 

CALLED. 






377* 




ODOt 




370* TIKIKT 



QOOt 

08E7 

FFFE 


370* 

KOVEH.L 

DO-D7/AO-A1,-ISF) 

SAVE USER'S REGISTERS 

0004 

1030 

0003 

OFOO 

310* 

HOVE B 

TlCl.L.DO 

RESET VIA IFR T2 BIT 





311* 








312* 

lor i :« 1 to KUHEHTS do 






313* 




ODOA 

45F1 

0324» 


314* 

LEI 

TIHERTBL.A2 

ADDRESS OF TIHER TABLE 

OOOF 

0212 



313* 

CIR.L 

D2 

START WITH FIRST ENTRY 





310* 








317* 

IF HIVE VALID EKTR! THAT IS NOT DISABLE THEN SEE IF SHOULD CALL USER SERVICE ROUTINE 





310* 




0011 

07F2 

2001 


300* TINEIT LEI 

TFLAGSel(A2,D2.V),A3 

ADDRESS OF CURRENT FLAGS e 1 

0010 

0113 

1000 


300* 

BTST 

IVALI DENT, (All 

VALID ENTRY* 

0010 

0734 



301* 

BEOS 

TICHRNET 

NO, SEE IF ANOTHER ENTRY 

OOU 

0113 

0003 


392* 

BTST 

IEHSLDSBl,(A3) 

IS ENTRY ENABLED? 

OOIE 

002E 



393* 

BNE 3 

TICNRHET 

NO, SEE IF ANOTHER ENTRY 





390* 








393* 

COT VALID EHTRT - 

TEST IF SHOULD CALL USER SERVICE ROUTINE 





390* 




0020 

0472 

0001 

2000 

397* 

SUBl.V 

ll,TDWKCKT(A2,03.VI 

DOWN COUNT 

0020 

0020 



390* 

BNE.S 

TICHRNET 

NOT DONE, SEE IF ANOTHER ENTRY 





399* 




0021 

4IE7 

2030 


400* 

KOVEH.L 

D2/A2-A3,-(SF) 

SAVE VORRIHG REGISTERS 

002C 

2172 

2001 


401* 

HOVEA.L 

RECA4(A3,01.W),A4 

SETUP USERS A4 AND A3 

0030 

2172 

2D0C 


402* 

KOVEA.L 

RCCAS(A2,D2.V),A3 

REGISTERS 

0030 

2072 

2102 


003* 

HOVEA.L 

FTRUSRTN(A1,D2.V),A0 

ADDRESS USER SERVICE ROUTINE 

0031 

OEOO 



400* 

JSR 

(AO) 

CALL USER SERVICE ROUTINE 

0031 

4CDF 

ICOO 


003* 

KOVEH.L 

(SF)t,D3(A2-A3 

RESTORE REGISTERS 





004* 








007* 

RESET DOWN COUNTER 

- ASSUHE COHTIKUOUS NODE 






001* 




0O3E 

3SB2 

2000 

2001 

009* 

HOVE W 

TC0UHT(A1 ,DE W) ,TDVNCIfr( A2 ,D2 .W) 





010* 








oil* 

IF EtmiT IS IN 1 SHOT NODE THEN DELETE THE EHTRT. 





oil* 




0040 

0113 

0001 


013* 

nsT 

tC0NTI8HT,(A3l 

I SHOT NODE? 

0001 

0700 



010* 

BEO.S 

TICHRNET 

HO, SEE IF ANOTHER ENTRY 

0001 

0103 

0000 


015* 

BCLR 

OVALIDENT,(A3l 

YES, DELETE ENTRY 





010* 








017* 

INCREHCKT INDEE - 

IF NOT FAST END OF TABLE THEN DO HEET ENTRT 





Oil* 




OOOE 

0042 

0012 


oil* TICHUIET IDDl.W 

ITINTIEN.OI 

INDEE TO NEXT ENTRY 

OOS2 

0C42 

0014 


020* 

CHFI.V 

ITABIEIK.DE 

FAST END OF TABLE? 

0030 

OOBl 



421* 

BNE.S 

TINEET 

NO, DO HEET ENTRY 





412* 








413* 

BEE IF SHOULD DO CONTEET SWITCH 






420* 








423* 

SIR. 3 

CHKCS 

RETURNS (AOI FTR TO SYSCON 



Fill: TIHER. DRV. TEXT 


Pigt 7 




42i* i 

REQ.S 

DOCS 

,DOES OWN E2IT(RTEI 



427* i 




OOSI 

4CDF 7FFF 

4221 

HOVEH.L 

<SP)i,D0-D7/A0-A4 

iRESTORE USER REGISTERS 

oosc 

4E73 

427* TUNRTE 

RTE 


;usid bg initaniognt 



FiU. TIMER DRV. TEXT 


Pi<( i 


U2< i DOCS - 00 COKTEIT SWITCH 

i EMTRT . HOST IE I GOTO CUE VIA A JUMP OR BRA HOT A SUSROUTINE 

43M , CAU. HO EXTRA STUFF ON STACX. 

OS' , THE TOP OF STACR HURT BE THE USER'S REGISTERS 

Oi* , (AC) • POIKTER TO SISCOH 

COSE OIC Q03C CXI* DOCS CLR.B SPKDFIG(AO) .CLEAR SUSPEND FLAG 


o*« , 

440< , SAVE EXISTING PROCESSES CONTEXT (PARTIAL, SCHEDULER DOCS REST) 
Ml* i 


COO 

3020 

0002 

992« 

HOVE.V 

CURPROC(AO),DO 

GET CURRENT PROCESS 1 

COM 

COFC 

OQCC 

993* 

KULU 

OPTLEN.DO 

CALC INDEX TO PROCESS TABLE ETFTRr 

COiA 

2290 

OOBR 

999* 

HOVCA . 1 

PPTBLIAOl.Al 

ADDRESS OF PROCESS TABLE 

OOiE 

95F1 

0000 

995* 

LEA 

0(At,O0.V),A3 

ADDRESS OF CNTRT 

9071 

720E 


949* 

HOVCO 

ONUNREGS-l.Dl 

COUNT OF FOPS 




997* ; 




0079 

29DF 


991* DCSHOVR 

HOVE L 

(SP)>,(A2)* 

SAVE REGISTERS IN CNTRT 

0079 

SIC? 

FFFC 

99?« 

DBF 

Dl, DCSHOVR 

IN ORDER D0-A9 




430* , 




007A 

3SSF 

9090 

9SI* 

HOVE.V 

(SP)«,PTSR(A2) 

SAVE SR AND PC OF CURRENT 

007E 

355F 

003C 

9S2* 

HOVE.V 

(5P)«.PTPC(A2) 

PROCESS 




953* , 







439* . CALL SCHEDULER VIA A FAKED RTE 





955* i 




0002 

2F2I 

OOBR 

439* 

HOVEL 

SCHEDPTR(AO),-(SP) 

ENTRY POINT TO SCHEDULER 

0009 

3F3C 

2700 

957* 

HOVE.V 

ISCHCD3R,-(SP) 

SR FOR SCHEDULER 




95B* ; 




008A 

2091 

eoBB 

95?« 

HOVEL 

5CHDA9(A0),A9 

SCHEDULER IS A PASCAL GLOSAL SUBROUTINI 

DOIE 

2A9I 

OOBB 

990* 

HOVEL 

SCHDA5(A0),A5 

NEEDS ITS VALUES FOR A9 0 AS 

0072 

9E73 


991* 

RTE 





Fill: TIMER. DRV. TEIT 


F 191 ! 


0091 1071 0110 
0091 U20 OOSC 
009C <70i 


009E 0A2B OOSA 
00A2 1002 

OOA4 7001 
OOAi 1E7S 


4i3> 

Oil* 

us« 

Hi* 

147» 

Oil* 

149* 


CHXC3 - SEE IF SHOULD DO A CONTEIT SVITCK 

EIIT : (HE) - DON'T DO CONTEIT SVITCK 
(EQI - DO SWITCH 
(AO) • POINTER TO SVSCON 
IF (SUSPEND FLAG IS CLEAR) THEN DON'T DO SWITCH 


170* CHRCS 

NOVE.L 

PSVSCOMV.AO 

.ADDRESS OF SVSCOH 

171* 

TST.B 

SFNDFLC(AO) 

;FLAC CLEAR) 

172* 
173* i 

BEQ.S 

CCSDOKT 

,VES 

171* i IF (SUSPEND WAIT COUNTED SEMAPHORE 
175* , 

= 01 THEN DO CONTEIT SWITCH 

174* 

TST.B 

SPVAITC(AO) 


177* 
178* i 

BRAS 

CCSEIIT 


179* CCSOONT 
180* CCSEIIT 

MOVEO 

RTS 

81, DO 

.FORCE DONT (NC) 



Fill: TIKER. DEV. TEXT 


Ftgi 10 


4t: 

413 

414 
413 
414' 
417 
400' 
417 
470 
471' 
472' 
473' 
47 4' 
475 
474 
477' 
470 
477 
300 
SOI' 
303 

303 

304 
305' 
304' 
5071 
SOI' 
507' 


UNIT I/O PMAHETER PtSSINC DEFINITION 


COKHAND 

UNIT 

ADDR 

COUNT 

BLOCK NODE 

lOBESULT 

- INSTALL 

DOW 




D7.V 

- READ 

DO.V 

Dl.L 

DI.V 

DS V 

D7.W 

- WRITE 

DOW 

Dl.L 

D2.V 

D3 W 

D7.W 

- CLEAR 

00 V 




D7.W 

- BUST 

00. V 




D7.U 

- STATUS 

DO.V 

Dl.L 

D2.W 


D7.W 

- UNHOUNT 

DO V 




D7.U 


AIL AECISTCI VALUES ON EHTIV ARE SAVED AND RESTORED EXCEPT D4 4 D7. 
INTERNAL REGISTER OSEACE : 

Al - TEHF (GLOBAL) 

At - TEHF (GLOBAL) 

A3 - ADDRESS OF TIKER TABLE (GLOBAL) 

A3 • ADDRESS OF USER'S BUFFER ADDRESS (GLOBAL) 

A4 - ADDRESS OF INTERNAL FLAGS BTTE (BELL) 

AS - ADDRESS OF VIA SHIFT REGISTER (BELL) 

Ai - ADDRESS OF VIA IHTERRUFT ENABLE REGISTER (INSTALL) 

DO - TEHF 

01 - TEHF 

D3 - COUNT OR CONTROL 
D3 - TABLE ENTRI INDEX 

D4 - PATTERN FOR BELL 




P>4( il 


Fill: TIKER.DRV.TEIT 


511» i 

SI 2* GEOBAl TIHERDRV 

SIS* , 

S14* ; TIMER DRIVER 
515» ; 


Olkl 



SIO* TIHERDRV 




OOAI 

<OM 


517* 


ERAS 

TIHROOl 

>070712* JUMP ARODND HEADER 

OOAA 

00 


31l> 


DATA.B 

0 .DEVICE NOT BLOCEED 

SOAR 

IF 


5n« 


DATA.B 

31 ; VALID CHDS - NOT UNIT5TATUS 

OtAC 

S2 OA 

U 00 

S20< 


DATA.B 

02,10,32,0 ;DATE 

CORO 

OC 


52l« 


DATA.B 

hBltB .HEADER HSC LENGTH 

OOBl 

$MF0ORSS220OR72 

S22« 

illOlO 

DATA.B 

'TIHER OtUef 

HEADER HOG 

OORF 

«F7iiS?2 







OOOOOOOC 

S23« 

hiltn 

EQU 

t-lllOlO 





S20* 

0 




OORE 

OCRO 

0000 

325« 

TIHROOl 

CMPI M 

OVNHCKD.DO 

VALID COHHAND 

OtC2 

(21C 


S20* 


BHI.S 

TIHDERR ,NO 




527« 


till chingt to DO lot bos; iitotn ****>ii*i*** 




S20« 


HOVEH.L 

DO-D57AO-AO,-(SF) 

SAVE REGISTERS 




329* 


OOC1 

R8E7 

7EFE 

S30* 


BOfei. 1 

D1-D0IAD-A0,-<SP) 

*** tup* lot bo <9 ritoiD io DO 

ODca 

0207 


331* 


CLR 1 

D7 

CLEAR lORESULT 

OOCA 

2001 


332* 


MOVEA.l 

01, A3 

ADDRESS OF USERS BUFFER 

oocc 

03FA 

OOlIt 

533* 


LEA 

TIHDTBL, A1 iTURN THE COHHAND INTO A 

OODO 

E30C 


330* 


LSL.V 

01,00 

INDEt TO THE FUNCTION 

OOD2 

3031 

0000 

535* 


MOVE.W 

0<A1,DO.V),00 


OODi 

OEBl 

0000 

530* 


JSR 

0<A1,D0.V) 

DO FUNCTION 




537* 

jttllMUttXtt Wilt 

till cbinge to DO lot bo >9 uUrn **•••*•****• 




530* 


HOVEH.L 

<SP)*,D0-DSfA0-A0 

RESTORE SAVED REGISTER VALUES 




539* 

; ftttlttttiUtttltttitlttAttttlttttlttttttmttttttttlltttUtt 

OODA 

OCDF 

7F7E 

500* 


■ofn.l 

(BP)*,D1-D0/A0-A0 

**• teip* for bosp lotutn io DO 

CODE 

0E7S 


501* 


RTS 






503* 

1 







503* 

; InfiliO 

Couinil Eiist 





500* 

i 




ODER 

3EK 

0003 

505* 

TIHDERR 

HOVE.V 

ONOTLECIT,D7 


ODER 

0E7S 


500* 


RTR 






507* 

; 







50B* 

i THE TIMER DRIVER JUHF TABLE 





509* 

i 




eOEi 

027E 


550* 

TIHDTBL 

DATA.V 

TIH1N8T-TIMDTBL 

imiTINlSTALL 

ODER 

OOIA 


SSI* 


DATA.V 

TIHRD-TIHDTBL 

UNITREAO 

ODEA 

OIDO 


552* 


DATA.V 

TIHVR-TIHDTBL 

UNITVRITE 

OOEC 

0010 


553* 


DATA.V 

TIHCLH-TIHDTBL 

UNITCLEAI 

OOEE 

OOOE 


550* 


DATA.V 

TIHB3I-TIHDTU 

UNITBUSy 

tOFS 

02E0 


555* 


DATA.V 

TIMST-TIHDTBl 

UNITSTATUS 

lOFl 

0200 


550* 


DATA.V 

TimiNHT-TIMDVBL 

UNITUNHOUNT 



ril» TIMER. imVTElT 


Ptgi 12 


SSI* , 

S3V> ; TIHBST - UNITRBUSI 

SEI* , IVS! TRON THE TIMER IS CURRENTII UKDEFINED. 
ill* , 

OOM 3C3C 0003 ill* TIMBSY MOVE.V INDTLECIT,D7 

oori <E73 Si3* RTS 

300 < , 

SOS' , TIMCLR - UHITCLERR 
• SiO* . CLEiR THE TIMER IS CURRENTIS UNDEFINED. 

507* i 

ODFO 3E3C 0003 SOI' TIHCIR MOVE.V INOTLECIT,D7 

OOFE 0E7S S0V» RTS 



Fill. TIMER. DRV. TEIT 


Pigi 13 


S71I 

572* 

573* 

57<« 

575* 

574* 

577* 

578* 

579* 

580* 

381* 

582* 

583* 

588* 

585* 

584* 

587* 

588* 

589* 

590* 

591* 

592* 

593* 

598* 

595* 

594* 


TIIIWR - UHITWRITE 
TIHRD - UKITRERD 

CODE FOR CRUNDER CIOCX : IN INCLUDE FILE liBii . elk . tell 

<• 

INCLUDE 'TIMER. CUTE2T' 


nil ; tlBii. elk. tilt 

diti : 22-OCTOBER-I982 kb 


FILE IS RH INCLUDE FILE FOR TIMER. DRV. TEXT , THE TIMER DRIVER. 

THIS IS THE UNITRERD RND UNITVRITE CODE FOR THE CRIRNDER CIOCX IN THE 
TIMER DRIVER. 


88-23-82 

84-07-82 

87-07-82 

09-28-82 

18-22-82 


kb Chingid lORESULT dilinitiens te use the glebil lili difinltlons 
kb Chingid toe new lei 8 piocissur boird cbingis, will ilnd the 
cotriet iddtiii te use (iltbit S30FE1 oi t38F81) 
kb Chiugid eiioi In RV3 ind RV8 iddriss ignites, wen neetsed 
II Chingid wtiti cloek to itop/stirt elock In ordic to leto 
iioonds end tenths fields 

kb Chingcd RERDCR lo It tiids 8 tiles with i NOVEF.L Insttuction. 
Checks to like soie the low oidei 3 bgtis, ill eicept the 
fiist icid iti the sue. If they ite not it leieids the 
[igistis . 



Flit TIMER DRV TEXT 


Ftfi M 



570* . 

377* ; EQUATES FOR THE 
400* . PARAirrER BLOCK 
401< / 

CLOCK ROUTINES 
INDICES - RANGE 

00000000 

402* DATOFWK 

EQU 

0 

00000002 

• 103> MONTH 

EQU 

DAYOFWIU 

00000004 

404* DAY 

EQU 

KONTK«2 

00000004 

405* HOUR 

EQU 

DAY *2 

00000003 

404* MINS 

EQU 

HOURt2 

OOOOOOOA 

407* SECS 

EQU 

HINSt2 

OOOOOOOC 

40S> TENTHS 

EQU 

SECSt2 

OOOOOOOE 

407* LEAPYR 
410< . 

EQU 

TENTKS«2 

OOOOOOOE 

411* LENFBR 

EQU 

TEKTH3W 

00000007 

412* NUNRP 
4I3> / 

EQU 

LENPBR/2 

00000010 

414* LEHPBW 

EQU 

LCAFYR«2 

00000001 

415> NUMVP EQU 

414* . 

4I7> . CLOCK REGISTERS 
411* . 

LENFBW/2 

00030F3I 

417* RV4ADDR 

EQU 

73OF01 

00030FEI 

420* RV3ADDR 

EQU 

430FE1 

00030D01 

421* RWREC 

EQU 

730001 

OOOOOOOF 

422* INTREG 

EQU 

IS 

OOOOOOOE 

423* STRTSTOP 

EQU 

14 

OOOOOOOD 

424* LYREG 

EQU 

13 

00000001 

425* TENTHSC 
424* ; 

EQU 

1 

OOOOOOOF 

427* RDERR 

EQU 

OOF 

OOOOOOlO 

420* DSELCT EQU 

427* . 

430* . lORESULT CODES 
431* ; 

710 

00000037 

432* PBLENER 

EQU 

lOEprili 

00000037 

433* CIOCKERR 
434* / 

EQU 

lOEclkil 


FOR FtaXHETER IN FRREKTHESIS 

;DRI OF THE VEEE (1-7) 

.MONTH (1-12) 

;OAY (t-31) 
iHOURS (C-23) 
iMIKUTES (0-57) 
iSECONDS (0-37) 
iTENTHS OF SECONDS (0-7) 
llEAP YEAR (0-3) 

; LENGTH OF READ PARAMETER IIOCX 
.NUMBER or READ PARAMETERS 

i LENGTH OF WRITE PARAMETER RLOCK 
.NUMBER OF WRITE PARAMETERS 


.SELECT/ ADDRESS LATCH •<!•« BoifO iddiiii 
; SELECT/ ADDRESS LATCH xold botrd tddiiss 
.READ/WRITE CLOCK REGISTERS 
; CLOCK INTERRUPT REG ADDS 
; START/STOP REGISTER 
;LEAP YEAR REGISTER 

;TEKTH OF SECONDS REGISTER (ckingt 0/7) 

;REGISTER VALUE WHEN READ WHEN UPDATE 
/DESELECT CHIP 


/PARAMETER BLOCK WRONG LENGTH 
/CLOCK HOT WORKING 



File 

TIMER DRY. TEIT 



Pije 13 





434* i 







437* i TIMED - 

UNITREAO OF 

CLOCK 





431* i 







437* , RETURN TO THE USER THE TIME IK THE REXl-TIHE 

-CLOCK. 




440* ; USER PASSES PARAMETER BLOEE POINTER IN 01 OF WHERE TO PUT THE TIME INFO. 




441* ; TIME IS 

RETURNED IN 

BINART, INTEGERS. THE 

PARAMETER BLOCK HAS THE FORM 




442* ; 







443* 1 tfpt RtideitckPiriitlir ° Kcoid 





444* , 


DifolWcik iinteocr, 




443* ; 


Month : inltqec; 





444* , 


Di; : intigii; 





447* 1 


Konr . inltger, 





440* , 


Mins . initgti, 





449* i 


Stos : inleget, 





430* i 


Tenths : integer 

i 




431* ; 


end; 





432* ; 




0110 



433* TIMRD 




0100 

2C41 


434* 

MOVE . L 

01, A4 

|A4 • PARAMETER BLOCK FTR 

0102 

2002 


435* 

MOVE.L 

02,04 

/SAVE USER LENGTH 

0104 

4130 


434* 

BSR.S 

RDCLOCK 

;READ THE CLOCK 

0104 

4X47 


457* 

TST.W 

07 


0101 

442e 


431* 

BNE.S 

TRDEIIT 

, CAN'T READ CLOCK 




459* ; 







440* , CONVERT AND PUT RESULT IN PARAMETER BLOCK 





441* ; 




OlOA 

0C44 

ODOE 

442* 

CHPI.V 

0LENPBR,D4 

ns PARAMETER BLOCK LONG ENOUGH 

OlOC 

4321 


443* 

BCS.S 

TRDERR 

,NO 

0110 

4BFX 

03Ee» 

444* 

LEA 

NUMBER, A3 

,1 OF NIBBLES IN PARAMETER 

0114 

47FX 

03De» 

443* 

LEA 

DETAIL, A4 

iREGISTER ARRAY INDICES 

0110 

47FX 

04DX« 

444* 

LEA 

REGARRAT,A3 

, REGISTER ARRAY 

one 

4213 


447* 

CIR.L 

03 

;INDEI INTO PARAN BLOCK 

one 

4214 


441* 

CIR.L 

D4 

. INDEX INTO HUMBER ARRAY 

mo 

4284 


449* 

CIR.L 

04 

, INDEX INTO DETAIL ARRAY 




470* i 




om 

1033 

4000 

471* TROCETP 

MOVES 

0(A3,D4.V),D0 

,1 OF NIBBLES PARAMETER 

0124 

4130 


472* 

BSR.S 

eVTOUT 

; CONVERT - RETURNS IN Dl 

mo 

3011 

3000 

473* 

HOVE.V 

DI,0(A4,03 V) 

.STORE PARAMETER 

me 

3443 


474* 

ADDO.V 

12, D3 

NEXT PARAMETER 

012E 

3204 


475* 

ADDQ.B 

11, D4 

,00 7 PARAMETERS 

0130 

0C44 

1007 

474* 

CHPI.V 

1NUHRP,04 


0134 

44EE 


477* 

BNE.S 

THDCETP 

.00 AGAIN 

0134 

4E75 


470* TRDEIIT 

RTS 






479* , 







410* ; ERROR - 

PARAMETER BLOCK THE WRONG LENGTH 





411* i 




0130 

3E3C 

0037 

482* TRDERR 

HOVE.V 

1PBLENER,D7 


one 

4E73 


483* 

RTS 





Flic 

TIMER 

DRV TEIT 

ots* 



PlRC 

10 




oeo> 

, RDCLOCK 

- REtD ALE THE CLOCK REGISTERS 

INTO THE REGISTER ARRAY 




0I7> 

, 




013E 

0130 


Oil* 

RDCLOCK 

BSR.S 

LDADDR 

,GET CHIP ADDRESSES IN AOtAl 

0l40 

7C07 


0171 


MOVED 

17,00 

.COUNT OF FAILURES 




070> 

, 







0?1« 

, REtD REGISTERS INTO 

ARRAV 





072« 

, 




014! 

0300 


073> 

ROCRST 

SUBO B 

81,00 


0144 

0E34 


07 4> 


BHl.S 

RDCERR 

.RETRIED TO MANY TIKES 

0144 

7 00 1 


0 73* 


KOVEQ 

II. DO 

.DO > REGISTER 1 

0140 

40Ft 

04ttt 

070* 


LEA 

RECARRAI,A2 





077* 

, 




014C 

0100 


070* 

RDCREG 

BSR S 

READER 

.READ A SINGLE REGISTER REURNS IN D2 

014E 

14C2 


077* 


HOVE B 

02,(A2)« 

.PUT IN ARRAY 

0100 

0 200 


700* 


tODO . a 

81,00 


010! 

OCOO 

OOOD 

701« 


CHFI B 

IRARDLENU.DD 

.IF DONE 12 TIMES STOP 

0106 

OOF4 


70!' 


EHE S 

RDCREG 

.DO AGAIN 




703* 








704' 

, IF tNV REGISTER REID 

= OOF THEN READ REGISTERS WHEN TICKED AND MUST RESTART 




700' 

, 




0101 

7 00B 


700* 


MOVED 

IRAHOLEN-l.DO 

,DD 12 TIKES 

0101 

40Ft 

0470t 

707* 


LEA 

RECARRAV,A2 





70S' 

, 




OlOE 

OClt 

OOOF 

707' 

RODCHK 

CHBI B 

IROERR,(A2lt 

.BAD 

CIO! 

073E 


710* 


BEDS 

RDCHST 

,YES, REREAD CLOCK 

0104 

OICO 

FFF! 

711' 


DBF 

DO.RDDCHK 


DlOl 

4E75 


712' 


RTS 






713' 








714* 

, ERROR - 

CHIP NOT WORKING 





710' 

, 




out 

3E3C 

0037 

710' 

RDCERR 

HOVE V 

ICLOCKERH,D7 


DUE 

4E70 


717' 


RTS 






718' 

, 







71?' 

i LDAOCR 

GET LATCH ADDRESS IN AD AND RIV CLOCK ADDRESS IN tl 




720' 





0170 

!07t 

047E* 

721' 

LDRDDR ' 

HOVEA L 

ADDRREC.AO 

i GET find iddiiss Uhingi 0/7) 

0174 

2000 


722' 


HOVE L 

AO, DC 

j Ichingi 0/71 

0170 

07F2 


723' 


BEOS 

RDCERR 

;NO CLOCK CHIP - ERROR EXIT (chtnDt 0/71 

0170 

43F7 

0003 ODOl 

724« 


LEA 

RVREC.L.AI 


017E 

4E75 


720' 


RTS 





Filt: TIMER. DRV. TEIT 


Figc 17 





727« 








728» 

CVOVT - 

CONVERT REGISTERS TO 1 FIRAHETER 





727» 


ENTRY : 

(DO) • 1 OF REGISTERS TO USE 

(4 OF DETAIL ELEMENTS) 




730* 



DETAIUD6) > REGISTER TO USE TO HAKE FARAHETER 




731* 



(A4) • ADDRESS OF THE INDICES OF REGARRAY FOR EACH PARAMETER 




732* 



(A3) > ADDRESS OF THE REGISTER ARRAY 




733* 


E2IT : 

(Dl) > PABAHETER CONVERTED 





734* 



(06) « UPDATED TO NEIT DETAU ELEMENT FOR NEXT PARAMETER 




735* 





ouc 

4212 


736* CVTOUT 

CLR.L 

D2 


0112 

4211 


737* 


CLR.L 

Dl 


OIM 

1434 

6000 

731* 


MOVER 

0(A4,D6.V),02 

,GET REGARRAY INDEX 

0111 

S204 


737* 


ADDQ.B 

11, D6 

lUPOATE INDEX 

OlOt 

1233 

2000 

740* 


MOVE.B 

0(A3,02.V),D1 

IFIRST NIBBLE 




741* 





01 IE 

3300 


742* 


SUBQ.B 

41,00 

;1F NUMBER OF REGS«1 THEN 

OIVI 

470E 


743* 


BEQ.S 

CVOEIIT 

;THEN DONE- IS VALID BINARY 




744* 





0172 

C707 


745* 


ISL.B 

44,01 

,HOVE TO HI NIBBLE 

0174 

1434 

6000 

746* 


MOVE.B 

0(A4,D6.V),D2 

.INDEX TO NEXT REGISTER 

0171 

3204 


747* 


ADDQ.B 

41, D6 

.UPDATE INDEX 

0171 

1233 

2000 

741* 


OR.B 

0(A3,O2.V),Dl 

,PUT IN LOW NIBBLE 




747* 





01 7E 

6102 


750* 


BSR.S 

CBCDBIN 

.CONVERT BCD TO BINARY 

OUO 

4E75 


751* CVOEIIT 

RTS 





rill. 

TIKES 

DRV TEXT 




Figi 11 





752* 








754« 

; CICDBIN 

- CONVERT 

1 BYTE OF BCD (2 DIGITS) TO 

1 BYTE OF BINARY 




755‘ 


ENTRY 

(Dll > BCD BYTE OF OICITS 





754* 


EXIT . 

(01) c BINARY BYTE 





757* 





«IA2 

4212 


75l> 

CBCDBIN 

CIR.L 

D2 


tui 

1401 


757* 


KQVE . B 

D1.D2 

,COFY OF BCD 

OlAi 

0202 

OOOF 

740< 


ANDI B 

ISOF.D2 

,LOW ORDER DIGIT 

OIAA 

EI44 


741* 


LSR.V 

M,D1 

.HOVE OVER HI DIGIT 

OlAC 

C2FC 

OOOA 

742> 


HULU 

110,01 

,NARE 10*DIGIT 

out 

D242 


743> 


ADD.W 

D2,D1 

,'HARE FOU NUHBEB 

OIBi 

4E75 


744» 


STS 





rilf. TIMER. DRV. TBIT 
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766* 

, 










767* 

i CAangeO louline on 

10/22/82 kb 








768» 

, READER 

- SEJID CLOCI DECISTEl 








767* 

i 

ENTRY . <A01 

s LATCH ADDRESS 








770* 

i 

lAl) 

» R/U CLOCE ADDRESS 








771* 

, 

(DO) 

= REGISTER ADDRESS 








772* 

, 

EXIT : 1D3) 

s REGISTER VALUE READ 








773* 

, 










774* 

, The loftp.i infiltuction works because the I/O 

addtiss space lor the 







775* 

i dock 

is not fullf decoded. 








776* 

i 






2* 

eiB4 

48E7 

OEOO 

777* 

READER 

MOVEK.L 

D4-D6,-(SF} 

,84ve legs 

•kb 

tO/22/8 




778* 







2* 

2* 

01B8 

6124 


779* 

RDCRIO 

BSR.S 

SELREG 

.DESELECT THEN SELECT ADDRESS 

•kb 

10/22/8 

OtSA 

0S4? 

0000 

780* 


HOVEF.L 

0(A1),D2 

ircad reg 4 (iies 

•kb 

10/22/8 

OISE 

108C 

0010 

761* 


HOVE . B 

iO3ELCT,(A0) 

.DESELECT CHIP 



2* 

2« 

2' 

2* 

01C2 

02S2 

OFOF OFDF 

762* 


AHDt L 

lt0F0F0F0r,D2 

idear hi nibbles d all bftes 

*kb 

11/22/1 




783* 

i 




*kb 

10/22/8 




784* 

; take oute all bftet read are the sate 


«kb 

10/22/8 




705* 

■ 




• kb 

10/22/8 

eici 

7801 


786* 


KOVEO 

11. D4 

.ignore hi order bfte. 1st read 

•kb 

10/22/8 

2* 











2* 

2* 

2» 

2* 

OtCA 

2A02 


787* 


KOVEL 

D2.DS 

.save read value 

*kb 

10/22/8 

SKC 

1C05 


788* 


KCVC.B 

DS, D6 

,eo>pari all to last read 

*kb 

10/22/8 

fllCC 



789* 

RDER20 



i 

*kb 

10/22/8 

aicE 

EOBO 


790* 


LSR.L 

18. OS 

iolik ntil byt. 

• kb 

10/22/8 

IlOO 

6C05 


791* 


CKF.B 

DS, D6 

;ii, thiy the tm! 

*kb 

18/22/8 

2* 











2* 

0102 

66E4 


792* 


BNE.S 

RDCRIO 

,Na, [«.d leg igiiii 

*kb 

10/21/8 

0104 

SlCC 

FFFI 

793* 


DBF 

D4, RDCR20 

;Dc until cbicbed ill 3 bylii 

•kb 

10/22/1 

2* 











2n 

0108 

4CDF 

0070 

794* 


KOVEH.L 

(SFH.D4-D6 

^itiUti rigs 

•kb 

10/22/1 


QIOC 

4E75 


795* 


RTS 









796* 

i 










797* 

, SELREG 

. deselect then select chip register 








798* 

, 

ENTRY : 

(CO) « CLOCK REGISTER ADDRESS 







799* 

, 


(AO) 9 LATCH ADDRESS 








BOD* 

, 







OIDE 

7210 


801* 

SELREG 

KOVEQ 

IDSELCT.Dl 





OlEO 

1200 


802* 


OR.B 

00, D1 





01E2 

1081 


603* 


MOVE . S 

Dl.(AO) 

.DESELECT CHIP BY SEniNC D4 




D1E4 

IDBO 


804* 


MOVE . B 

DO, (AO) 

.SELECT ADDRESS 




01E4 

4E7S 


803* 


RTS 







File 

TIMEH 

DRV. TEAT 



Page 20 







I07» 









!0I« 

INITCU - FROCEDURE 

CALLED ST UHITIHSTALL CODE 

(TIKIHSTI TO INITIALIZE 





eo7* 

THE ClOCl CHIP. 







110* 

ASSUHES THAT THE 

FOLLOVIHC CODE DDES NOT RESET THE CLOCK. I*’ lit* 






111* 





91EI 




012* 

KITCLR 








013* 









114* 

START CLOCK - HOST 

DO IT FOR BOTH ADDRESSES 







IIS* 





OlEI 

43F0 

0003 

OOOl 

IK* 

LEA 

RVREC.L, A1 

,RJV ADDRESS 

Ichingt ill) 

OlEE 

oiro 

0003 

OFEI 

117* 

LEA 

RV3AODR.L, AO 

,DD OLD ADDRESS FIRST 

Ichiagc </71 

01F4 

il2A 



111* 

BSR S 

STRTCLK 

, 

Icbiagi <171 

OlFi 

llFl 

0003 

OFIl 

117* 

LEA 

RV4ADDR.L, AO 

,DO NEW ADDRESS 

(chtagi </7I 

OlFC 

il22 



120* 

SSR 3 

STRTCLK 

, 

Icbiigt </7l 





121* 




Ubisgi </7) 





122* 

FIKD CORRECT ADDRESS OF THIS HACHIHES PROCESSOR BOARD 

Icbiigt <171 





123* 




Icbiigi </71 

tlFE 

iMi 



134* 

BSR.S 

FINDADDR 

» 

{cbtagt if!) 

0200 

Fill 



I2S* 

BHE.S 

INITEEIT 

; ERROR - NO CHIP 

Icbisgi <171 





I2<* 









127* 

IHITIALI2E CHIP 








121* 





0202 

<100 

FF<C 


127* 

BSR 

LDAOOR 

iCET CLOCK REGISTER ADDRESES 

020( 

4210 



130* 

CLR.L 

DO 

,REC ADDRESS 


0201 

4202 



131* 

CLR.L 

D2 

;DATA 


02DA 

<100 

OOK 


132* 

BSR 

WRITECR 

i PUT IK NON-TEST NODE 






133* 









134* 

CLEAR INTERRUPTS 








I3S* 





020E 

700F 



I3<* 

HOVEQ 

IINTREC.DO 

i ADDRESS 


0220 

4202 



137* 

CLR.L 

D3 

.DATA 


0212 

<17£ 



131* 

BSR.S 

VRITECR 



02M 

<17E 



137* 

BSR.S 

READER 

iREAD 3 TINES TO RESET 


02U 

<17C 



140* 

BSR.S 

READER 



0211 

<17A 



141* 

BSR.S 

READER 



02U 

4E73 



142* 

NITEIIT RTS 


ilchangt <171 




rilt: TIHER.ORV.TEIT 


Pigt 21 


021C 

021E 


q221 

0222 

0220 

0220 


0220 

0221 

022R 

022C 

022E 

0232 

0230 

023A 

023C 

023E 

0240 

0244 




044* 






045* 

STOFCLE - 

STOP CLOCK PROCEDURE 

(07-28-82) 



040< 

ASSUMES AO AND A1 ARE INITIAUZED. 

(87-20-82) 



047* 



(07-20-821 

7400 


840* STOFCLK 

MOVEO 10,02 ;DATA 

(87-28-82) 

0002 


847* 


ERAS STIO 

(87-28-82) 



850* 



(87-28-82) 



851* 

STRTCIE - 

START CLOCK PROCEDURE 

(8(-07-82) 



852* 

ASSUMES AO AND A1 ARE INITIAUZED. 

(84-87-82) 



853* 



(04-87-82) 

7401 


854* STRTCIR 

MOVEO 11,02 ,DATA 

(84-87-82) 



855* 


1 

(07-20-82) 

700E 


850* STIO 

MOVED OSTRTSTOP.DO .ADDRESS 

(87-20-82) 

OlOC 


857* 


BSR.S VRITECR ; 

(04-07-82) 

4E7S 


858* 


STS ; 

(84-07-82) 



057* 






000* 

RDTENTHS 

- leid 1A» tenths esgister ol elect 




801* 

EZIT - (NCI > READ OR 




802* 


(C) > ERROR - WRONG ADDRESS 




803* 


(D2I . REGISTER VALUE READ 




804* 






805* RDTEKTHS 



7A03 


800* 


MOVED 13,05 iCHECK MAE. 4 TIMES 

FOR CLOCK TURNING 



807* 




7001 


808* EDTIO 

MOVEO tTCNTH3C,D0 itsid tsnth ol secends ttgistic 

0110 


807* 


BSR.S READER 


0C02 

OOOF 

870* 


CMFI.B ORDERS, D2 ;do gntil (ne reid 

error) or 

SOCD 

FFFO 

871* 


DBNE D5, RDTIO , (tried 4 tiaes) 




872* 




0C02 

0007 

873* 


CMFI.B 17, DZ ;if not e BCD digit 

then wrong address 

0204 


874* 


BHI.3 RDTERR ;USE OTHER Address 


4205 


875* 


CLR.L DS 


4E75 


870* 


RTS 




877* 




44FC 

0001 

878* RDTERR 

MOVE.V ICARRTST, CCR 


4E7S 


877* 


RTS 




rile: 

TIMER. DHV. TEXT 




Fi<i 22 






111* 

; FINDIDDR 

- FIND IDDRESS OF CHIP'S IDDIESS IITCH 

IT IS EITHER RV3ADDR OR RVOADDR 





192' 


DEPENDING ON THE VERSION OF THIS PROCESSOR BOIRD. 





093* 

Hit 

j logtlBi 

tldtd with 0/7 chts|«. 


021i 




lit" 

115* 

FIMDIDDR 




024i 

07F1 

0319* 


090* 


lEl 

IDDRREG, 13 

VHERE TO SAVE CORRECT ADDRESS 

02 a 

03F? 

0003 

ODOl 

117* 


lEl 

RWREC.1,11 


1259 

01F7 

9003 

oroi 



LEI 

RVOIDDS.1,10 

START WITH REV 0 ADDRESS 

0251 

790 1 



997* 
IQ nt 


NQVEQ 

11, DO 

TRY ONLY TVO ADDRESSES 





971* 

972* 

; CHECK IF 

IDDRESS 

IN 10 IS CORRECT 


0251 




973* 

Fill 




0251 

OICE 



170* 


SSR.S 

ROTENTHS 

GET STARTING VAIVE 

0251 

OSIE 



175* 


9CS.S 

FINRT 

WRONG CHIP TRY NEXT ADDRESS 

02SC 

0CO2 

0007 


970* 


CHPI.B 

97, D2 

WAIT UHTIl TENTH OF SECONDS 

0210 

0700 



177* 


BEO.S 

FAZERO 

IS NEXT TEIFFH ») D3.B 

0202 

1002 



071* 


HOVE. 9 

D2,D3 


0200 

5203 



177* 


IDDO.B 

lt,D3 


0200 

0002 



700* 


ERAS 

FA20 


0201 

0293 



701* 

F12E90 

ClR.l 

D3 


0201 

3C3C 

7530 


702* 

F130 

NOVE.V 

130000. DO 

MUST READ IT LEAST TENTH SEC. 





703* 

700* 

entt 

, REID TEKTHS VKTIL 

IT CHANCES OR UKTIl IT TRIED TO lONG 

020E 




TU3" 

700* 

1 

F131 




020E 

0199 



707* 


BSR.S 

RDTENTHS 

GET NEXT VALUE 

0271 

0509 



701* 


BCS.S 

FANRT 

VRONC CHIP TRY NEXT ADDRESS 

0272 

9002 



707* 


CHP.B 

03,03 

HAS TINE TICKED 

02 7 0 

0710 



710* 


BEO.S 

FAFNDIT 

YES. FOUND CORRECT ADDRESS 

9270 

51CE 

FFFO 


711* 

■ It* 


DBF 

DO, FA30 

READ AGAIN 





712* 

713* 

4 1 it 

, MOT THIS 1DOIE99 TRT OTHER 10DIES9 


9271 

0IF7 

9003 

OFEl 

TlO* 

715* 

riMiT 

lEl 

RV3ADDR.I, AO 


9200 

SlCC 

FFDO 


710* 


DBF 

DO, Fill 






1 1 / ■ 

711* 

914* 

; ERROR • 

NEITHER IDDRESS VORRED 


0290 

0273 



717" 

720* 


ClR.l 

(A3) 

SHOV NO CHIP ADDRESS 

0290 

3E3C 

0037 


721* 


NOVE.V 

ICIOCRERR, D7 


0291 

4E7S 



722* 

1714 


RTS 







7*4 " 

720* 

47 44 

i FOUND CORRECT 1DDRES9 


029C 

2099 



7*4" 

720* 

1 

FIFKDIT 

HOVE.l 

AO, <A3) 


029E 

0297 



727* 


ClR.l 

D7 


9270 

0E7S 



721* 


ns 





Filt: TIHER.D8V.TEIT 


Pigt 23 


J30» 

?31* 

?32‘ 

933* 

934* 


VnilTECR - WRITE A CLOCK REGISTER 

ENTRy : (DO) • REGISTER ADDRESS 
(D2) • DATA 


0293 

<100 

FF4A 

933« 

VRITECR 

BSR 

SELREG 

, DESELECT THEN SELECT REG 

029i 

1282 


93<* 


HOVE.B 

D2,(A1) 

, WRITE DATA 

0291 

lOBC 

0010 

937‘ 


HOVE.B 

IDSELCT,(AO) 

;DESELECT CHIP 

039C 

4E7S 


938» 


RTS 






939* 

i 







940* 

i VRITEREG3 

• WRITE THE CLOCK REGISTERS 

FRDH THE REGISTER ARRAT 




941* 

A 




029E 

<100 

FEDO 

942* 

VRITERECS 

BSR 

LDADDR 

^CET CHIP ADDRESSES 




943* 

1 







944* 

i WRITE REGISTERS 






945* 

i 




02A2 

7001 


94<* 


HOVEO 

11, DO 

, REGISTER ADDRESS 

02A4 

4SFA 

034E« 

947* 


LEA 

REGARBAT.Al 





948* 

1 




02A8 

141A 


949* 

VRONER 

HOVE.B 

<A2)«,D2 

.REGISTER DATA 

02AA 

<1E< 


950* 


BSR. 3 

WRITECR 

.WRITE DATA 

02AC 

3200 


951* 


ADDQ.B 

11, DO 

;HCIT REGISTER ADDRESS 

02AE 

OCOO 

OOOE 

952* 


CRPI.B 

8STRTSTOF,DO 

.STOP AT START/STOP REG. 

02R3 

«F4 


953* 


BKE.S 

WROKER 


02B4 

4E7S 


954* 


RTS 





Tilt; TIMER. MV. TEXT 


Figi 24 


TINWR ■ SET CIOCS FION FSRUIETEI BLOCK 

FEIUIETEI BLOCK FOE UNITVIITE : 


42Bi 2M1 


I2BI «1U 
12BK 4212 
I2BC (13C 


02BE 4100 FEBO 
02C2 4100 FF3I 
02C4 4100 FFSI 


0:ct 4102 
02CC 4E72 


02CE 3E3C 0034 
0202 4E73 


(•(•Id 

(••gt 

Di|«2V(^A : inligii. 

1-7 

Hontli iiiUg^i; 

1-12 

Di] : UUg^ii 

1-31 

Horn : (•(•gi[. 

0-23 

Him : itltgiii 

4-57 

Sgci . iitagid 

0-57 

Ttilbi : iiltgii; 

0-7 

LatgTot : iiltgK, 

0-3 


•sdi 

TIHVR HOVE L 01, K3 

FIOCESS BIKIRI FtRMlETERS 

BSR.S VALBIN 

BCS.S TVRERR 

BSR.S CVTBINB 

ZERO SECONOS AND TENTHS OF SECONDS 

BSI LDAODR 

BSR STOFCll 

BSR STRTCLK 

, VIITE OUT RECISTER ABRAI 

BSR.S VRITEREGS 

RTS 

, ERROR - INVALID CLOCK FARAHETER 

TVRERR KOVE.V IINVFRH,07 

RTS 


.ADDRESS OF FARAHETER BLOCK 


.VALIDATE FARAHS 
,ND GOOD 

i CONVERT BINART TO BCD OF REGISTERS 

(07-20-02) 

(07-20-121 

GET CLOCK ADDRESSES (07-20-02) 
(07-20-02) 
(07-20-02) 



Filt. TIMER. DRV. TEIT 


Fite 2S 


??5‘ 

»U» 

?»7* 

jtt« 

1000 * 


VELDIH - VALIOm BINARY PARAMETER BLOCK 

ENTRY . (A3) > ADDRESS OF PARAMETER BLOCK 
EIIT : (NCI : GOOD PARAMETERS 

(Cl > ERROR, OUT OF RANGE 


R3D4 

2B1B 


1001* VALBIN 

MOVEA.L 

A3.A4 

,SAVE FB ADDRESS 

II3D( 

7R07 


1002* 

MOVEO 

INUMWP-1.D4 

,DO ALL 1 PARAMETERS 

t2DI 

4BFA 

024(1 

1003* 

LEA 

RANGES, AS 

,LIST OF PARAMETER RANGESi 




1004* , 







1003* ; COMPARE 

EACH PARAMETER TO IT'S LOW AND HI 

RANGE VALUE 




100(« , 




02DC 

<210 


1007> VBCHK 

CLR.L 

DO 


02DE 

lOlD 


100(1 

MOVES 

(AS)«,DD 

,GET LOV BOUND RANGE 

t2E9 

B0S4 


1007* 

CMP.tf 

(A4),D0 

.FARAMHLOV BOUND THEN OK 

02E2 

(210 


1010* 

BHl.S 

VBERR 

, ERROR, TO LOV 

02E4 

lOlO 


1011* 

MOVE.S 

(ASH, DO 

,CET HI BOUND RANGE VALUE 

02Et 

B054 


1012* 

CHP.W 

(A4I,D0 

;PARAH(=HI BDUND THEN OK 

t2E8 

(SOA 


1013* 

BCS.S 

VBERR 

.ERROR, TO KICK 

02EA 

S48C 


1014* 

ADDQ.L 

(2,A4 

,NE1T PARAMETER LOV BYTE 

92EC 

SlCC 

FFSE 

lOlS* 

DBF 

D4, VBCHK 


02F0 

42B0 


lOK* 

CLR.L 

DO 

, SHOV NO ERROR 

02F2 

4E73 


1017* 

RTS 






1010* , 







1017* i ERROR EIIT - OUT OF 

RANGE 





1020* , 




02Ft 

44FC 

0001 

1021* VBERR 

MOVE.W 

ICARRYST,CCR 

,SHOV ERROR 

02FI 

4E73 


1022* 

RTS 





File 

TIKCI! 

DRV.TtlT 




Ftgc 

24 





1024* 









1023' 

, CVTBIHR 

- CONVERT VALID FARAHETER BLOCS 

FROH 

BINARY INTO RECARRAY BCD NIBLES 




1031' 


ENTRY 

(A3) > ADDIESS OF FARAHETER 

BLOCK 




1027* 

, 





OZFA 

4>fA 

030A« 

102l« 

CVT81NR 

LEA 

H1.A4 


,HI NIBBLE HOLD ARRAY 

out 

4BFA 

030A» 

1121* 


LEA 

LOW, A3 


;LOW NIBBLE HOLD ARRAY 

1302 

7007 


1030* 


KOVEQ 

IHVKVP-1,04 


;FOR i :: 1 to 1 Oo 

0301 

740F 


103l< 


MOVED 

0LEAFYR*1,D3 


,1NDE1 TO PARAMETER 




1032* 

, 





0301 

4200 


1033I 

CBRN1B5 

CIR L 

DO 



0301 

1033 

3010 

1034* 


MOVE B 

0!A3,D3.V),D0 


,GET PARANETERlil 

030C 

2 200 


1035* 


HOVE L 

DO, 01 



03DF 

12FC 

OOOA 

I034> 


DIVU 

110,01 


,KI NIBBLE .> FARAH DIV 10 

0312 

2001 


I 037* 


HOVEL 

01,00 


,LOW IS REMAINDER FROM DIV 

03H 

4140 


103l> 


SWAP 

DO 


;LOV FARAKETER-(HI*10) 

D3U 

not 

4100 

103»» 


HOVE.B 

D1,0(A4,D4.W) 


,SAVE HI 

03U 

IBIO 

4000 

1040< 


HOVE . B 

D0,O!AS,D4.W) 


,SAVE LOW 

03U 

5543 


1041> 


SUBQ.W 

12,03 


.NEXT FABAHETER INDEX 

03 20 

5 ICC 

FFC4 

1042* 


DBF 

D4,CBRNIBS 


,DOVNTO 0 




1043> 

, 








1044* 

, SETUP REGISTER ARRAY 






I045> 

, 





0324 

4203 


I044> 


CLR.L 

D3 


, REMOVE GARBAGE 

0324 

47FA 

02CCt 

1047* 


LEA 

RECARRAT,A3 



03 2A 

70CC 


1041* 


HOVEQ 

IRAVRLEN-1,04 


,HOVE TO 13 REGISTERS 

032C 

45FA 

01C5» 

1047* 


LEA 

NIBBLE, A2 


,VH1CH NIBBLE FOR THIS REG. 

0330 

43FA 

01D4« 

1050* 


LEA 

INRECB,11 


;VHICH FARAHETER IS REG FROM 




1051* 

, 





0334 

163! 

4000 

1052* 

CBRRECS 

HOVE.B 

0(A1,D4 V),D3 


, INDEX TO HI 1 LOW FOR THIS REG 

03 31 

1035 

3000 

1053* 


HOVE B 

0(A5,O3.V),D0 


, ASSUME LOW NIBBLE 

033C 

4A32 

4010 

1054* 


TST.a 

0!A2,D4.V) 


,IF 0 THEN USE LOW NIBBLE 

0340 

4704 


1055* 


BEQ.S 

CBRULOV 


:I3 LOW 

0342 

1034 

3010 

1054* 


HOVE.B 

0(A4,D3.V),DO 


.ELSE GET HI NIBBLE 

0344 

1700 

4000 

1 057* 

CBSULOW 

HOVE.B 

D0,0!A3,D4.V) 


,FUT NIBBLE IN REGISTER HOLD 

03 41 

SlCC 

FFEl 

1051* 


DBF 

04, CBRRECS 






1051* 

, 





034C 

4102 


1040* 


BSR.S 

CVTLPYR 


.CONVERT LEAF YEAR REG 

0350 

4E75 


1041* 


RTS 






riU. TIMER. DRV. TEIT 


Figt 27 


03S2 102R OOOC 
0351 7203 
0351 7200 
0330 4210 
03SC 03C0 
03SE 1740 OOOC 
0342 4E7S 


1044* , CVTLPV 
1043* ; 

1044« ; 

1047* ; 

1048* ; 

1047* CVTLPYR 


COMVERT LEAP lEAR PARAMETER TO THE REGISTER VALUE FOR THE 
CLOCK CHIP. 0,4, 2, I WHERE 0 IS FOR LEAP YEAR AND THE OTHER NUHOERS 
ARE FOR THE YEARS AFTER THE LEAP YEAR THEREFORE, 4 IS LEAP YEARtl, 
1 IS LEAP YEAR»2, 1 IS LEAP YCARt3 


LYREC-1(A3),D0 
13, D1 
DO, 01 
DO 

01, DO 

D0,LYREC-1(A3I 


,LEAP YEAR REG. > 13(1ND£2°12I 
,D0 IS PARAMETER (RANGE 0-31 
;CALCULATE WHICH RIT TO SET 
,BITI :t 3-FARAHETER 
,D0 IS LEAF YEAR VALUE 
,FUT in REGISTER ARRAY 



File TIMER DIV TEXT 


Fill 21 






1077« 

, 







1073* 

, TIHIKST - UNIT1HST3U 






1079« 

, INSTALL THE TIHEI 

INTERRUPT ROUTINE AND SET UP THE VIA 





10306 

, 



D3M 




1081> 

TIMINST 







10S2> 

, 



03i* 

3DF9 

0003 

OF7D 

1013* 

LE3 

lER.L.Ai 


0362 

ICBC 

007F 


10S3< 

HOVE. a 

IDISABL.lAi) 

iTURN OFF ALL INTERUPTS ON VIA 





toss* 

, 







1036* 

, 1NITIALI2E TIMER 

TABLE 






1037* 

, 



Q36E 

31F3 

01C0« 


1033* 

LEA 

TIHERTBL.AO 

.ADDRESS OF TIMER TABLE 

0371 

43F3 

0370* 


1089* 

LEA 

TIHERTBl*(TI)FrLEN*NUHENTSl,Al ;IST BYTE AFTER TABLE 





1090* 

i 



0376 

30BC 

0000 


1091* 

TINSTIO HOVE.V 

10. (30) 

.CLEAR FLAGS OF EACH ENTRy 

037i 

DOFC 

0012 


1092* 

ADOA.V 

ITIHTLEN.AO 

i POINT AT NEXT ENTRY 

037E 

B3C8 



1093* 

CHFA.l 

AO, At 

;AT END OF TABLE 

0330 

66F3 



1093* 

BNE.S 

TINSTIO 

;NO 





1095* 

, 







1096* 

, PUT ADDRESS OF INTERRUPT ROUTINE IK VECTOR 






1097* 

, 



0313 

41F3 

FC7C* 


1098* 

LEA 

TIHIKT.AO 


0336 

21C3 

00 73 


1099* 

MOVE . L 

AO, VECTOR. V 






1100* 

, 







1101* 

, SETUP VIA 







1102* 

, 



0333 

13FC 

0030 

0003 

1103* 

NOVE.B 

lACRBITE.ACR.l 

.FREE RUN NODE PB7 OUTPUT DISABLED 

0390 

0F77 







0393 

13FC 

0030 

0003 

1103* 

HOVE B 

OTIKEL.TIlL.l 

.TIMER 01 LATCH LOV 

03 93 

0F6D 







0393 

13FC 

OOC3 

0003 

1103* 

HOVE.B 

ITIMEH.TIIH.L 

;TIMER 01 LATCH HIGH 

0330 

0F6F 







0332 

13FC 

00C3 

0003 

1106* 

MOVES 

ITlHEH.TICH.l 

;TIHER 01 COUNTER HIGH • FORCE LOAD 

0333 

0F6B 







0333 

13FC 

OOFF 

0003 

1107* 

HOVE.B 

ICIEAR.IFR.L 

.CLEAR IFR 

03BO 

0F7B 



1103* 








1109* 

; ENABLE TIMER 32 







1110* 




03B3 

ICBC 

OOCO 


nil* 

HOVE.B 

lENBLTI.(Ai) 

iTURN INTERUPTS ON FOR T1 





1112* 

i 







1113* 

, INITIALIZE CLOCK 

• SOURCE IN TIMER. CIK. TEXT 

INCLUDE FILE 





1113* 

, 



03B6 

6000 

FE30 


1113* 

BRA 

INITCIK 

iOOES RETURN VHEK IHITCIK DDES 



Flit. TIHCR DRV.TEIT 


Pige 2« 


U17* I 

1118» , TIMUNHT - UHITUNHOUKT 

1U?» i TURN OFF THE VU INTERRUPTS AND POINT TH? TIMER INTERRUPT VECTOR AT A RTE 


03BA 

03BA 

13FC 

007F 0003 

1I20« ; 

1121* TIMUNHT 
1122* 

HOVE.B 

IDISABL.IER.L 

.TURN OFF ALL INTERUPTS ON 

03Ct 

03C1 

0F7D 

4IFA 

rcoot 

1123< 

LEA 

TUHRTE.AO 

.WITH TIMER INTERRUPT CODE 

03Ci 

21C8 

0074 

1124* 

HOVEL 

AO, VECTOR. W 

.POINT VECTOR AT RTE 

03CA 

4E73 


1I2S« 

RTS 





Flit TIMES D»V TEXT 


Fi«t 30 





1137* , 

1120« , TIMST - 

UNITSTATUS 






1127* , THIS FFROCEOUSE COKTklNS THE BELL ROUTINE 

AND THE 4 TIMER TABLE MANIPULATION 




1130> , PROCEDURES, CREATE, 

DELETE, DISABLE. AND 

ENABLE. 




mil , 







11321 , 

ENTRY 

D2 - CONTROL CODE USED TO SELECT FUNCTIONS 




11331 , 


A3 ■ BUFFER ADDRESS 

> PTI TO PARAMETER BLOCK 




1134< , 




03CC 

SC4< 

0004 

1135* TIHST 

CMFI.V 

IENABLEC.D2 

;VALID FUNCTION CODE 

03D0 

(312 


113(1 

BHI .5 

TSTERR 

,NO 




11371 , 




03D3 

45FA 

onc« 

11311 

EEA 

TIMERTBL.AX 

.ADDRESS OF TIMER TABLE 

03Di 

43FA 

0DI3» 

1139* 

LEA 

TSTTBL.Al 

.TURN THE CONTROL CODE DEFO A 

03Dt 

E34A 


11401 

LSL.W 

lt,D2 

, INDEI TO THE FUNCTION 

03DC 

3431 

3 000 

1141' 

HOVE.U 

0(A1,D2.VI,D2 


03EO 

4EF1 

2000 

11421 

JHF 

0(Al,O2 V) 

;DQ FUNCTION 




1143* , 







1144' , Uiilld 

foActlOB Codi Error 





11451 , 




03E4 

3E3C 

0030 

114(1 TSTERR 

MOVE.W 

IINVFNC.D7 


33EI 

4E73 


11471 

RTS 






114(1 , 







11491 , THE TIMER DRIVER JUMP TABU 





llSOi , 




03EA 

oots 


1151* TSnBL 

DATA.V 

T5TBELL-TSTTBL 

.BELL 

03EC 

000k 


1152* 

DATA.V 

TSTCREI-TSTTBL 

.CREATE TABLE ENTRY 

03EE 

004E 


1153I 

DATA.V 

TSTDELT-TSHBL 

; DELETE TABLE ENTRY 

03Ft 

0040 


U54‘ 

DATA.V 

TSTDSBL-TBTTBL 

.DISABLE TABLE ENTRY 

03F3 

0073 


1155* 

DATA.V 

TSTENBL-TSTTBl 

.ENABLE TABLE ENTRY 



ril». TIHEil DRV TEXT 


Pigi 31 





1157« 

; 






1150« 

^ T5TCRE0 - CREATE TABLE EKTR3 





115?» 

, EHTRY 

A3 > ADDRESS OF PARAMETER BLOCK 




1140* 

, 

A3 = ADDRESS OF TIMER TABLE 





1141* 


A4 > VALVE WHEN TIMER DRIVER 

CALLED 




1143* 


AS = VALUE WHEN TIMER DRIVER 

CALLED 




1143* 

, PARAHETER BLOCA . 





1144* 

; 11 ADDRESS OF USER SERVICE ROUTINE TO INSTALL IN ENTR7 (LONGWORD) 




114S* 

, 3) COUNT OF 50 HILIISECOND PERIODS TO WAIT (WORD! 




1144* 

, 31 FLAGS (WORD) - 





1147* 


bil D1 ° CONTINUOUS/ 1 SNOT MODE FLAG 




1140* 


bit DZ : SKIP FIRST CALL FLAG 




1149* 

, 4) RETURN SPACE FOR TABLE EHTRV ID, THE ENTRY NUMBER (WORD) 




1170* 

, 



03M 

4300 


1171* 

TSTCREI CtR.L 

DO 

, ENTRY 4 

03Ft 

4303 


1173* 

CLR.L 

U3 

, ENTRY INDEX 




1173* 







1174* 

, FIND AN UNUSED ENTRY IF ONE AVAILABLE 





1175* 

, 



g3Ft 

0033 

0000 3001 

1174* 

TCRCKNXT BTST 

0VALIDCNT,TFLAGSfl(A3,D3.W) 

03FE 

4713 


1177* 

BEO.S 

TCRFOUND 

, FOUND ONE 

049t 

0443 

0013 

1170* 

AODI.W 

OTIMTLEN,D3 

.ELSE SEE IF AT END OF TABLE 

otot 

S340 


1179* 

ADDO.W 

01, DO 

.NEXT ENTRY NUMBER 

610< 

0C40 

OOOA 

1100* 

CNF I W 

INUHENTS,D0 

, IN TABLE’ 

040t 

44EC 


1101* 

ONE S 

TCRCKNXT 

,YES 




1103* 

, 






1103* 

1 ERROR TABLE FULL 






1104* 

, 



140C 

3E3C 

0033 

1105* 

HOVE.W 

ITBLFULL,D7 


04tt 

4034 


1104* 

BRAS 

TCREIIT 





1107* 

; 






1100* 

, FOUND UNUSED ENTRY - SET IT UP 





1109* 

i 



0413 

3S7B 

3003 

1190* 

TCRFOUND HOVE.L 

(A3)f,FTRUSRTH(A3,D3.W) 

;PUT IN USER SERVICE RTN ADDRES 

04U 

3S73 

3004 

1191* 

HOVE.W 

(A3),TCOUNT(AZ,D3.W) 

.COUNT OF 50 MS, TICKS 

04U 

3S7B 

3000 

1193* 

HOVE.W 

(A3I«,T0VMCNT(A3,D3.W) 

.SET DOWN COUNTER 

041E 

331B 


1193* 

HOVE W 

(A3)«,D1 

,CET FLAGS 

0434 

OOCl 

0000 

1194* 

8SET 

OVALIDENT,Dl 

.SHOW ENTRY IN USE 

0434 

0001 

0003 

1195* 

BCIR 

•ENBLD3BL,Dt 

.SHOW ENABLED 

0431 

3301 

3000 

1194* 

HOVE W 

D1,TFLAGS(A3,D3.W) 

.PUT IN ENTRY 

043C 

3S0C 

300A 

1197* 

HOVE 1 

A4,REGA4(A3,D3.W) 

.SAVE USERS A4 AND AS REGISTERS 

0430 

3SOO 

300E 

1190* 

HOVE.L 

A5,RECA5(AI,D3.W) 





1199* 

; 






1300* 

i RETURN TO USER TABLE EHTRY ID (THE ENTRY NUMBER) 




1301* 

; 



0434 

3400 


1303* 

HOVE.W 

DO, (A3) 


0434 

4E7S 


1303* 

TCREIIT RTS 





ri,« TIMCR DRV TEIT 


Pi«t il 





1203* 







I204* 

, TSTOtlT 

- DCUTC TRUE EKTiy 




120?* 


EKTRY 

13 • IDDIESS or PIIII1ETER KOCE 




I200< 



12 • IDDIESS or TIHER TIKE 




1204* 


ORRMIETEI ILOCR . 




1210> 


2) TtlLE ENTR? ID. EKTRT 0 TO ENTRE (WORD) 




12M> 




0431 



I212« 

TSTDtlT 


.GET IHDEI TO EHTRT 

04 31 

4i3)i 


1213* 


ms 

VIIIDID ;ISIDVIUD> 

043t 

4300 


1214* 


ICS 3 

TDELERR , INVUID-ERROR CUT 




1213> 

, 






1214' 

, Vtlio CKTRr INOEt 

- OELCTC CNTRT 




I2n* 

, 



04 3C 

Q8B2 

0000 3001 

12i0< 


■CLR 

IVIllDEKT.TrilGStlll3,D3.VI 

0442 

4004 


1224* 


■ Rt S 

TDELEIIT 




12 20* 

. 






1221> 

. INVALID 

TIKE ID 

ERROR 




1223< 

, 



0444 

3E3C 

0032 

1223< 

TDUCRR 

HOVE V 

IIHVTBUO.DT 

0441 

4t73 


1224> 

TDCLEllT 

ITS 




File TIHCR. DRV. TEXT 


Figt 33 





I214> 








TSTDSBl 

- DISABLE table ENTRY 




im> 


ENTRY : A3 

> ADDRESS OF FARAHETER BLOCK 




HIM 


A3 

• ADDRESS OF TIKER TABLE 




I230* 


FARAHETER 

BLOCK : 




I231* 


1) TABLE ENTRY ID, ENTRY 0 TO ENTRY (VORDI 




1232' 




tin 



1233> TSTDSBl 


iGET INDEX TO 

om 

4111 


1234* 


BSR.S 

VALIDID ,IS ID VALID* 

044C 

4301 


1233* 


BCS.S 

TDSBERR .INVALID-ERROR 




1234* 







1332* 

VRIID ENTRT INDEX - 

DISABLE ENTRY 




1231* 




oin 

oen 

0003 3001 

1239* 


BSET 

0ENBL0S8L,TFLAGS«1(A2,D3.VI 

0434 

4004 


1240* 


BRA.S 

TDSBEXIT 




1341* 







1242* 

INVAllD TABLE ID ERROR 




1243* 




•434 

3E3C 

0012 

1244* TOSBERR 

NOVE.V 

OIKVTBLID.O? 

0431 

4E33 


1243* TDSBEIIT 

RTS 




Fill 

TIBER. OBV TEIT 



FiOi 34 





1247* 







13401 

; TSTEKBL 

- ENABLE TABLE ENTRY 





1247* 

, 

ENTRY . A) • ADDRESS OF PARAMETER BLOCK 





12S0< 

, 

A3 • ADDRESS OF TIMER TABLE 





1231* 

, 

PARAMETER BLOCK 





1232* 

, 

1) TABLE ENTRY ID, ENTRY 0 TO ENTRY (WORD) 





1233< 

■, 


(4!C 




11S4< 

TSTCNBL 

,GET INDEI TO ENTRY 

04SC 

4114 



1233* 


BSR S VALIDID ,IS ID VALID? 

04SC 

430E 



123t> 


BCS.S TENBERR .INVALID-ERROR EEIT 





1137» 

, 






1230* 

, VALID EWTIT INDEE - ENABLE EHTBI AND RESTART DOWN COUNTER 





1257* 

, 


04i0 

3SB2 

3004 

3000 

1340* 


MOVE V TCOUNTI A3 ,D3 .V) .TDVNCNTI A3 , D3 . V) 

out 

00B2 

0003 

3001 

1341* 


BCLR IENBLDSBl,TFLACS*l(A2,D3.V) 

OOiC 

4004 



1342* 


BRAS TENBEEIT 





1343* 

, 






1344* 

, INVALID TABLE ID ERROR 





1343* 

, 


CUE 

3E3C 

0032 


1344* 

TENBERR 

HOVE.V IIHVTBIID,D7 

0470 

4E75 



1247* 

TENBEEIT 

RTS 





1240* 







1347* 

, VALIDID 

- VALIDATE TABLE ENTRY ID IN PARAMETER 





1370* 


ENTRY A3 > ADDRESS OF PABAHETER BLOCK 





1271* 


El IT . 03 > TABLE INDEE 





1372* 


(C) • INVALID TABLE ENTRY ID 





1373* 


(NC)> VALID TABLE ENTRY ID 





1 374* 



0474 

3413 



1373* 

VAllDID 

HOVE.V (A3), 03 , GET TABLE ENTRY ID 





1374* 







1377* 

, TABLE EKTRT ID IS THE EKTRI NUMBER - HARE SURE LESS THAN NUMBER OF ENTRIES 





1370* 

, 


0474 

0C43 

0007 


1377* 


CHFI.V INVHEKTS-I,D3 ; IS INDEI LESS THAN TABLELN? 

0474 

4304 



1200* 


BLS S VALCALC ;YE3, CALCULATE INDEI 





1301* 

, 


047C 

44FC 

0001 


1302* 

VUEBR 

HOVE.V ICARRYST.CCR .SHOW ERROR 

0400 

4004 



1303* 


BRAS VALEEIT 





1384* 

, 






1303* 

, HAVE VALID TABLE EHTRI 





1204* 



0402 

C4FC 

0012 


1207* 

VALCALC 

NULU ITIHTLEN,03 .CALCULATE INDEI 

0401 

4200 



1201* 


CLR L DO .CLEAR CARRY 

0401 

4E7S 



1307* 

VALEEIT 

RTS 


TABLE 



tilt: TIMER. DRV. TEXT 


Fife 3S 






1241‘ 

, TSTBELl - 

BELL ROUTINE 






1143* 


ENTRY : A3 

= ADDRESS OF PARAMETER BLOCK 





1243* 


PARAMETER 

BLOCK ; 






1244« 


11 FREQUENCY (WORD) 






124S* 


2) SPEAKER ON/OFF PATTERN (BYTE) 






1244* 


31 FILLER (BYTE) 






1247* 


4) DURATIQN IN SO MILLISECOND PERIODS (WORD) 





1240* 

i INIT VIA FOR FREQUENCY W/0 DISTURBING TIMER 11 






1244* 

; 




04(X 

4BF4 

0003 

0F75 

1300* 

TSTBELL 

LEA 

SHIFTREG.l.AS 


04Ft 

lABC 

0000 


1301* 


HOVE . 8 

80, (AS) JURNOFF BELL FOR SURE 

0444 

0034 

0010 

0003 

1302* 


ORI.B 

IRUKT3,ACR.L 

SET Tt HER 42 AS COUNT DOWWH 

044t 

or?? 








044C 

413A 



1303* 


BSR.S 

SETT2 

PUT FRCQUENCy IN TIMER 

044E 

44FA 

0144t 


1304* 


LEA 

1FLACS.A4 


44A2 

0844 

0000 


130S* 


BCLR 

ISHUTOFF,(A4) 

PUT TIMER ON 





1304* 

1 








1307* 

, CALL CREATE TO SETUP 

ONE SHOT INTERVAL TIMER CALL 





1308* 

, 




Q4A4 

43EA 

013E« 


1304* 


LEA 

IPRHBLK.Al 

ADDR OF INTERNAL PARK BLOCK 

04Ai 

:ro8 



1310* 


HOVE . L 

A3,-(SP) 

SAVE PARAMETER BLOCK ADDRESS 

04AC 

303B 

0004 


1311* 


HOVE.W 

DURATN(A3),D0 

SAVE THE COUNT 

C4B0 

1444 



1312* 


HOVEA . L 

A1,A3 

CREATE EXPECTS PRH BLK ADR IN A3 

04B1 

41FA 

0034« 


1313* 


LEA 

BELSRVR,AO 

BELL SERVICE ROUTINE ADDRESS 

04B4 

13CI 



1314* 


HOVE . L 

A0,(A1)« 

PUT IN PARAMETER BLOCK 

C4BI 

3300 



1313* 


HOVE.W 

D0,(A1) 

PUT IK COUNT 

04 BA 

4100 

FF30 


1314* 


BSR 

TSTCREI 

CALL CREATE 

04BE 

143F 



1317* 


HOVE . L 

(SP)t.A3 

BELL PARAMETER BLOCK ADDRESS 





1318* 

; 




04C0 

lAAB 

0001 


1314* 


HOVE . B 

PATTERN(A3),(AS) 

TURN OH BELL 





1320* 









1321* 

1 WAIT FOR 

SHUT OFF 







1322* 





04C4 

OBH 

oooo 


1323* 

TBEIWAIT 

BTST 

•SHUTOFF, (A4) 

DONE? 

04C4 

4?FA 



1324* 


BEQ.S 

TBELWAIT 

NO 





1325* 

i 








1324* 

; DONE SHUT 

OFF TIMER 

•2 AND BELL 






1327* 

1 




04CA 

lABC 

0000 


1328* 

TBEEDONE 

HOVE.B 

10, (AS) , CLEAR SHIFT REG TO SHUT OFF BELL 

04CE 

0234 

OOEF 

0003 

1324* 


ANDl.B 

ISTOPT2,ACR.L 


04D4 

OF?? 








04D4 

4E7J 



1330* 

TBEIEIIT 

RTS 





rile 

TIMER DRV TEXT 




Fi|t 14 





1333> 








1333* 

, SEn: 

- SET TIMER 

12 TO FREOVEKCV IN FAIAMETER 

BLOCK 




1334* 

, 




04CI 

I3EB 

0041 0003 

133S* 

sEm 

MOVE! 

l(A3>,T2ll 1 

.SET LATCH 

04Dr 

0F71 







04EI 

1303 

0003 0F73 

1334* 


MOVE . B 

IA3),T2CH.l 

;SET COUNTER AND CLEAR IFR T2 FLAG 

04EI 

4E75 


1 337* 


RTS 






.133|t 

; 







1330' 

. BELL ' 

TIMER SERVICE 

ROUTINE 





1340* 

; 




44EI 

41FA 

OOFAt 

1341« 

BELSRVR 

EEA 

I FLAGS, AO 

,TELl BELL ROUTINE DONE 

04EC 

OIDO 

0000 

13434 


BSET 

ISHUTOFF.IAOl 

,1 TO SHUT OFF SPEAKER AND 

o4ro 

4E75 


13434 


RTS 


.TIMER II 



File. TIMER. DRV. TEXT 


Fiqe 37 


1345* ; 

134(* , 

1347« , DATA AREA 

1341* ; CONSTANTS FOR CALANDER CIOCI 

.1347< , CONVERSION ARRAVS BCD TO BINARV/RECISTER TO FARAKETER BLOCK CONVERSION 
1350» , 


04F2 

0? 

OB 

OA 

00 

07 

04 

1331* 

DETAIL 

DATA.B 

7,11,10,1,7,4,5,4,3,2,1,0 , REGISTERS WHICH MAKE THE PARAMETERS 

04FI 

03 

04 

03 

02 

01 

00 





t4FC 

01 

02 

02 

02 

02 

02 

1332* 

NUMBER 

DATA B 

1,2, 2, 2, 2, 2,1 ,0 OF REGISTERS FOR PARAHEETER 

0394 

01 










0303 

00 






1333* 


DATA.B 

0 .**** FILL ***** 








1354* 











1333* 

; CONVERSION ARRAYS FOR PARAMETER BLOCK TO REGISTER ARRAY CONVERSION 








1334* 

i 



0304 

04 

03 

03 

04 

04 

03 

1337* 

INRECB 

DATA.B 

4, 5, 5, 4, 4, 3, 3, 2, 2, 0,1, 1,7 iVNICH PARAK IN RECIil (BINARY) 

030C 

03 

02 

03 

00 

01 

01 





0312 

07 










0313 

00 

00 

01 

00 

01 

00 

1350* 

NIBBLE 

DATA B 

0,0, 1,0, 1,0, 1,0, 1,0, 0,1,0 , WHICH NIBBLE- UHl 

0317 

01 

00 

01 

00 

00 

01 





OSIF 

00 

















1337* 











1340* 

; RANGE 

VALVES FOR 

CLOCK PARAMTER BLOCK FIELDS, i BYTE LOW, i BYTE HI FOR EACH 








1341* 

, OF 0 

PARAMTER SLOCK FIELDS 








1342* 




0520 

01 

07 

01 

OC 

01 

IF 

1343* 

RANGES 

DATA.B 

1,7,1,12,1,31,0,23,0,57,0,57,0,7,0,3 

0524 

00 

17 

00 

3B 

00 

3B 





0S2C 

00 

07 

GO 

03 








13«4» : 

13iS* ; VARIABLE DATA AREA 
1364« ; 

1347* , THE TIMER TABLE - 19 ENTRIES 
1341* , 


0330 

0000 

0000 

oooo 

1347* TIMERTBL 

DATA.W 

0,0, 0,0, 0,0, 0,0,0 

0334 

0000 

0000 

oooo 




033C 

0000 

0000 

oooo 





00000012 


1370* TIMTLEN 

EQU 

«-TIHERTBL 

0342 

0000 

0000 

oooo 

1371* 

DATA.W 

0,0, 0,0, 0,0, 0,0,0 

0340 

0000 

0000 

oooo 




034E 

0000 

0000 

oooo 




03 34 

0000 

oooo 

oooo 

1372* 

DATA W 

0,0, 0,0, 0,0, 0,0,0 

03SA 

0000 

0000 

oooo 




03 40 

0000 

0000 

oooo 




0344 

0000 

0000 

oooo 

1373* 

DATA W 

0,0, 0,0, 0,0, 0,0,0 

054C 

0000 

0000 

oooo 




0372 

0000 

0000 

oooo 




0370 

ODOO 

oooo 

oooo 

1374* 

DATA.W 

0,0, 0,0, 0,0, 0,0,0 

037E 

0000 

0000 

oooo 




0304 

0000 

oooo 

oooo 




05BA 

0000 

oooo 

oooo 

1373* 

DATA.W 

0,0, 0,0, 0,0, 0,0,0 

0370 

0000 

oooo 

0009 




0574 

0000 

oooo 

oooo 




057C 

0000 

oooo 

oooo 

1374* 

DATA.W 

0,0, 0,0, 0,0, 0,0,0 

03A2 

0000 

0900 

oooo 




OSAO 

0000 

oooo 

oooo 





, ENTRY I 0 

, lenqth of entry 
, ENTRY 4 ; 

, ENTRY 4 2 

, ENTRY » 3 

, ENTRY I 4 

, ENTRY I 5 


, ENTRY • 4 



F; it 

TINER 

DRV TEIT 



Pige 38 


33AE 

0000 

0000 

0000 

1 37 7* 

DATA.V 

0,0, 0,0, 0,0, 0,0,0 

, ENTRY 1 7 

OSSA 

OOOO 

0000 

0000 





03BA 

0000 

0000 

0000 





OSCl 

0000 

0000 

0000 

137J« 

DATA V 

0,0, 0,0, 0,0, 0,0,0 

, ENTRY 8 8 

Q3Ct 

0000 

0000 

OOOO 





05CC 

0000 

0000 

0000 





QSDi 

0000 

0000 

OOOO 

1377* 

DATA W 

0,0, 0,0, 0,0, 0,0,0 

, ENTRY 1 1 

03DI 

0300 

0000 

OOOO 





GSDE 

0000 

0000 

OOOO 






OOOQOOSA 


13B0< TABLELN 

EQU 

Ai-TIMERTBL 

,lcnoth ol ttblc U bytes 


OOOOOOOA 


138t> NUNENTS 

EQU 

TABLELN/TIHTLEN 

,8 of iDlfiti in tible 





1382* , 

1383* , INTERNAL 
138A* . 

FLAGS AND 

PARAHETER BLOCK 


OSEA 

0 000 



1383* IFLACS 

DATA.V 

0 

,USE ONLY 1ST BYTE 

OSEt 

0000 

oooc 

OOOO 

1380* IPRNBLK 

DATA V 

0,0, 0,2,0 

,BELL USES FOR CREATE CALL 

05EC 

0002 

0000 







I3S7> . THE ADDRESS AND COUNT ARE SET IN THE ECU ROUTINE - FLAGS ARE ALWAYS 
13tt* , ONE-SHOT NODE ONLY 
13I!> , 

;330> . CLGCR DATA AREA 

i3?l> , CLOCK ADDRESS AND SELECT LATCH ADDRESS SAVE AREA 
13?2« , 

33F3 CaCOOSOO :3Y3> ACDRREG DATA. L I .(CHANGE A/71 

i3?1« 

137S> . REGISTER ARRAY HOLD 
13?6» , 



00 00 00 

00 

00 

00 

13Y7* 

HECARRAY 

DATA E 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0 





00 00 00 

00 

00 

00 









O'COOOOC 




1378* 

RARDLEN 

EQU 

%-REGARRAY 

,NUKBER 

OF 

REGISTERS READ 

0630 

00 




13?»< 


DATA.B 

0 





oooooooo 




lAOD* 

RAVRLEN 

EQU 

%-REGARRAY 

iNUKBER 

OF 

REGISTERS VRITTEN 

CbQl 

00 




lAOl* 


DATA B 

0 

JILL 








1A02* 

, 











1A03* 

, NIBBLE 

HOLD FOR 1 

PARAHETER TO REGISTER CONVERSION 








lAOA* 

, 






JbOZ 

00 00 00 

00 

00 

00 

IA05* 

HI 

DATA.B 

G,0,Q, 0,0,0, 0,0 




cai 

00 00 











OiDA 

00 GO OO 

00 

00 

00 

lAOA* 

LOW 

DATA B 

0 , 0 , 9 , 0 , 0 , 0 , !! , 0 





OAIO dll 00 


M07< , 

OOCDOOAit 140S* END TIHERORV 


ACR 

G0030r77 

BITDO 

OOOOOOOO 

CLOCKERR 

0000003? 

CURFROC 

00000002 

DOCS 

OOOOSE, 

ACBEYTE 

00008080 

BITD7 

00000007 

CLRSC 

OOOOOOOO 

CURSON 

00000002 

DSELCT 

OOODOOIO 

ACTIVE 

OOOOOOOi 

CARRY5T 

OOOOOOOI 

CONTISHT 

OOOOOOOI 

CVOEIIT 

OOOIAO, 

DURATN 

00000008 

ADDRREC 

OOOSFOt 

CECDBIN 

0001A2, 

CSAnRl 

OOOOOOID 

CVTBINR 

DD02FA, 

ENABLEC 

00000008 

BELSRVR 

0008E8« 

CBRNIBS 

000300, 

C5ATTR3 

OOODOOIl 

CVTLFYR 

0003S2, 

ENBLDSBL 

00000003 

BITDO 

OOOOOOOO 

CBRRECS 

000338, 

CSBPCH 

OOOOOOOO 

eVTOUT 

000180, 

ENBLTl 

ooooooco 

BITDl 

00000001 

CBRULOV 

000380, 

CSFRSTCH 

00000008 

DAY 

00000008 

FAIQ 

000238, 

B1TD2 

00000002 

CeSDONT 

ODOOA8, 

CSLASTCH 

OOOOOOOA 

DAYOFVK 

OOOOOOOO 

FA30 

00038A, 

8ITD3 

00000003 

CC5EXIT 

OOODAO, 

CSLFCH 

00000008 

DCSHOVR 

000078, 

. FA30 

00028E, 

aiTOA 

00000008 

CHKCS 

000088, 

eSHASK 

OOOODOOC 

DETAIL 

Q008F2, 

FAFNDIT 

OD028C, 

BI7D3 

ooooooos 

CLEAR 

OOOOOOFF 

CSTBLLOC 

OOOOOOOO 

DISABL 

OQ00007F 

FANET 

00027A, 
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FRZERO 

0002A8t 

HHSTBLK 

OOOOOOIA 

SCCODEJT 

00000022 

SVBLKIO 

C000002C 

TENBEIIT 

000472t 

FINDRDDR 

00034At 

MMBTDEV 

00000012 

SCCURRX 

00000048 

SVCEI 

Q000007C 

TENTHS 

OOOOOOOC 

FREQ 

00000000 

KMBTDRV 

00000018 

SCCURRV 

00000044 

SVCLOSE 

00000020 

TENTHSC 

00000001 

GRAPHIC 

00000001 

HMBTSIT 

00000010 

SCDEVTAB 

00000014 

5VCRKPTH 

00000060 

TFLACS 

00000000 

HI 

000i02» 

KKBT3RV 

OOOOOOU 

SCDIRNAM 

00000018 

SVDELENT 

00000090 

TICHKNIT 

00004Ct 

HHIEN 

OQOOOOOC 

MMBTSW 

00000010 

SCFREEHP 

00000004 

SVOSFOSE 

00000038 

TIMB5Y 

OOOOF4t 

HOUR 

00000000 

HMHICOD 

oooooooc 

SCKDAO 

OOOOOOBB 

SVFLPDIR 

00000088 

TIMCLR 

OOOOFAt 

lER 

00030F7D 

MMHIDTA 

00000000 

SCHDA3 

DOODODBB 

5VGET 

OOOOOOU 

TIMDERR 

OOOOEDt 

IFUCS 

OOOSEOt 

HKLOCQD 

00000000 

SCHEDPTR 

OOOOOOBB 

5VCETDIR 

00000048 

TIHDTBL 

OOOOE6i 

IFR 

00030F7B 

HMtODTA 

00000000 

SCHEDSR 

00002700 

5VCETVNM 

00000080 

TIME 

OO0OC33O 

IKITCU 

OOOlEBf 

MONTH 

00000002 

SCIORSET 

00000000 

SVINIT 

00000018 

TIMER 

0000D0C3 

INITEIIT 

00021A> 

NIBBLE 

0Q0S13« 

SCJTABEE 

00000008 

SVHARX 

0000003C 

TIMEL 

00000030 

INREGB 

OOOSOOt 

NOAUTOLF 

00000000 

SCMEHHAP 

00000032 

SVMAVAIL 

00000044 

•TIMERDRV 

OOOOASt 

INSMOD 

00000002 

NOSCROLl 

00000003 

SCNUHPRO 

00000028 

SVNEV 

00000034 

TIHERTBL 

OOOSOOt 

INTREC 

OOOOOOOF 

NOTE EC IT 

00000003 

SCNITFRO 

00000026 

SVOPEN 

OOOOOOIC 

TIHINST 

D0Q364« 

INVCUR5 

00000003 

NUMBER 

OOOOFEt 

SCPROCNO 

00000002 

5VPUT 

ODOOOOlO 

TIMINT 

OOOOOOt 

INUFNC 

00000030 

NUHENTS 

OOOOOOOA 

SCPROTBE 

0000002A 

5VPUTDIR 

00000094 

TIHROOl 

OCOOBEt 

INVPRN 

00000030 

NUMREGS 

OOOOOOOF 

5CR00TH 

00000040 

5VRDCHAR 

00000028 

TIMRD 

OODlOOt 

IKVRSE 

00000000 

NUMRP 

00000007 

SCSLTTBl 

0000003C 

SVREEASE 

00000040 

TIM5T 

0003CC« 

IKVTBUO 

00000032 

NUMWP 

00000008 

SCSUSINH 

0000003A 

SVSCHDIR 

OOOOOOSC 

TIMTLEN 

00000012 

lOEClKHF 

00000039 

OFF 

00000000 

SCSUSREQ 

OOOOOOSC 

SVSEEK 

00000030 

TIMUNMT 

0003BAt 

lOEFNCCD 

00000030 

ON 

00000001 

SCSYSIN 

OOODOOlO 

SVUBUSY 

OOOOOOOC 

TIHVR 

0002E6t 

lOEIOREQ 

00000003 

PAHERN 

00000002 

SCSYSOUT 

OOOOOOOC 

SVUCLEAR 

00000008 

TINE2T 

OOOOiOt 

lOEXTBTE 

00000033 

PBEENER 

00000037 

SCTODAY 

00000020 

5VUIN5TE 

00000098 

TINSTIO 

000376+ 

lOENFORV 

0000002D 

PPTBE 

OOOOOOBB 

SCUSERIG 

OOOOOOOC 

SVUREAD 

00000004 

TRDERR 

0001 38+ 

lOENOBUP 

00000017 

PSYSCOM 

00000180 

SCUTABIE 

OOOOOOIC 

SVUSTAT 

00000064 

TRDE2IT 

000 136+ 

lOEHODSP 

00000020 

PTLEN 

OOOOOOCC 

SCVRSDAT 

00000032 

SVUWRITE 

00000000 

THDGETP 

000122+ 

lOENOXYB 

00000029 

PTPC 

0000003C 

SCVRSNBR 

OOOOOOOE 

SVVAEDIR 

00000084 

TSTBELl 

00048A+ 

lOEHOOHN 

0000002B 

PTRUSRTN 

00000002 

SCVNOTDl 

00000036 

SVWRCHAR 

00000024 

TSTCRE8 

0003F4+ 

lOENOPRT 

0000002C 

PTSR 

00000000 

SECS 

OOOOOOOA 

SYSBYTES 

00000186 

TSTDELT 

000438+ 

lOEHOTIH 

D000002A 

RANGES 

0OOS2O« 

SELREC 

OOOlDEt 

SYSKYBDF 

00000184 ' 

TSTDSBL 

00044A+ 

lOEKOTRN 

00000013 

RARDIEN 

OOOOOOOC 

SETT2 

OOOODOt 

SYSWIN 

00000003 

TSTENBL 

0D043C+ 

lOEPRHEN 

00000037 

RAVREEN 

OOOOOOOG 

SHIFTREC 

00030F7S 

TICK 

D0030F6E 

TSTERR 

0003E4+ 

lOETBLFl 

00000033 

RDCERR 

OOOUAt 

SHUTOFF 

00000000 

TICE 

00030F69 

TsnsL 

0003EA+ 

lOETBLID 

00000032 

RDCLOCX 

00013Et 

SRIFIST 

00000002 

TILH 

00030F6F 

TUNRTE 

OOOCSC+ 

lOETBlIU 

00000030 

RDCRIO 

OOOlBOt 

SFNDFIG 

0000003C 

TILL 

00030F6D 

TWRERR 

0002CE+ 

lOETIMOT 

OOOOOOU 

RDCR20 

OOOlCEt 

SFVAITC 

OOOOOOOA 

T2CH 

00030F73 

UNDSCR 

00000001 

lOEUIOFH 

00000030 

RDCREG 

00010C+ 

STIO 

000222t 

T2INT 

00003020 

UNHCMD 

00000006 

lOEVHDBE 

00000021 

RDCRST 

000102^ 

STACSIT 

00000004 

T2LL 

00030F7I 

UTBLF 

00000006 

lOEVHDCS 

00000022 

RDDCHX 

0001SE« 

STACSRV 

00000006 

TABLELH 

OOOOOOB4 

UTBLK 

OOOOOOIC 

lOEWNDOC 

00000023 

ROERR 

OOOOOOOF 

STAESLT 

00000008 

TBELOONE 

0004CAt 

UTDID 

00000008 

lOEWNDDS 

00000020 

RDTlfl 

00022A» 

STALSRV 

OOOOOOOA 

TBELE21T 

0004D6t 

UTDRV 

00000016 

lOEVNDFN 

00000020 

RDTENTHS 

000228t 

STBTSIT 

00000000 

TBELVAIT 

Q004C4t 

UTIODRV 

00000002 

lOEVHDIW 

00000023 

ROTERR 

000240« 

STBTSRV 

00000002 

TBLFULL 

00000033 

UTLEN 

00000020 

IDEVNOWM 

00000027 

READER 

OOOlBOt 

STINFO 

OOOOOOOC 

TCaUNT 

00000006 

UTtCTD 

00000007 

lOEVNDUR 

00000020 

REGAO 

OOOOOOOA 

STIHFOI 

00000004 

TCRCRNIT 

00D3F8t 

UTRO 

OOOOOOIA 

IPRMBLK 

0003EO« 

RECAS 

OOOOOOOE 

STKDRV 

00000002 

TCRE2IT 

OOD436t 

UTS 1 2 

00000010 

EDAODR 

ooonot 

RECARRAY 

OOOSFOt 

STNHBR 

00000000 

TCRFOUND 

000412t 

UT5LT 

00000014 

LEAPYR 

OOOOOOOE 

RUHT2 

00000010 

STQFCLK 

00021C» 

TDELERR 

000444« 

UT5FT 

00000018 

LENPBR 

OOOOOOOE 

RV3ADDR 

00030FE1 

5TOFT2 

DOOODOEF 

TDELEIIT 

000448« 

UTSRV 

OOOOOOU 

LENPBV 

00000010 

RVOADDR 

00030F81 

STRTCLK 

000220t 

TDSBERR 

0004S6t 

UTTPS 

00000019 

EOV 

OOOOOAo 

BVREC 

00030D01 

STRTSTOP 

OOOOOOOE 

TDSBE2IT 

0D043At 

UTTYP 

00000017 

EYREG 

OOOOClOO 

SCBOOTOV 

00000030 

smFE 

00000001 

TDWNCHT 

00000008 

VALBIH 

0002D4+ 

MINS 

00000001 

SCBOOTNM 

0000002E 

SUSPEND 

00000007 

TENBERR 

OD046E« 

VALCALC 

000482+ 



rilf TIhER DRV TEIT 
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VAIERR 

0Q047C* 

VERT 

00000000 

VRBASET 

VALEIIT 

000411* 

VIDDEFLT 

00000003 

WRBITOFS 

VALIDENT 00000000 

VID5ET 

00000007 

WRCHARPT 

VAUDID 

000474* 

VRAPON 

00000004 

VRCURADR 

VREHE 

0002DC* 

WRAHRl 

00000010 

VRCURSI 

VRERR 

0001F4* 

WRATTRJ 

00000021 

VRCURSF 

VECTOR 

00000074 

VRBASEI 

OOOOOOOE 

WRCRORCI 


0 erciirs HO) lines 


00000010 

VRCRORCr 

OOOOOOIC 

VREKCTHY 

00000014 

OOOOOfllA 

VRHONEOF 

OOOODOOC 

WROHCR 

OOOIAI* 

00000000 

VRHOKEPT 00000004 

WRRCDIEN 00000023 

00000001 

VRITECR 

0002)2* 

VR5TATE 

00000022 

oooooou 

WRITEREC 

DOODE* 

moiD 

ODOOBl* 

00000010 

VRIEHCTH 

00000024 



OOOOOOIC 

URINCTH2 

00000012 





ASHtlK Cross Ktfersncs OOld 
Cross-Rofsreoct listing 
Fiie ID: TIMR DRV.TEIT 


07 Sop 1702 


Dots. Hor i, 1912 


ACR 

30 3> 

1103 

1303 

ACRBTTC 

3U« 

1103 


ACTIVE 

232< 



ADDRREC 

721 

8B( 

1393* 

BELSRVR 

1313 

1341* 


BITDO 

2i2< 

28( 

299 

BITDl 

2i3* 

287 


B1TD2 

2i4< 

288 


BITD3 

2(S* 

289 


BITD4 

2(0* 



BITDS 

247» 



BITDi 

2iS> 



BITD7 

349* 



CARRVST 

354' 

878 

1021 

CBCDBIN 

750 

758* 


CBRKIBS 

1033* 

1042 


CBRBECS 

1DS2< 

1058 


CBRULOV 

1055 

1057* 


CCR 

870 

1021 

1282 

ccsDOirr 

472 

479* 


CCSEIIT 

477 

480* 


CHKCS 

470« 



CLEAR 

321* 

1107 


CLOCXERR 

i33> 

714 

921 

CLRSC 

243* 



CONTI SHT 

2B7* 

413 


CSAmi 

204< 



CSATTR2 

20i> 



CSBFCH 

200* 



CSFRSTCK 

20 1* 



CSIASTCH 

202« 



CSLFCH 

199* 



CSHASR 

203* 



CSTBLLOC 

19l« 



CURFROC 

331* 

442 


CVRSOK 

239* 



CVOEIIT 

743 

751* 


CVTBINR 

977 

1028* 


CVTLFYR 

10(0 

10(9* 


CVTODT 

(72 

734* 


DAT 

(04* 

(05 


DAYOrWR 

(02* 

(03 


DCSHOVR 

44B* 

449 


DETAIL 

4(5 

1351* 


DISABL 

319* 

1084 

1122 

DOCS 

431* 



DSELCT 

(21* 

781 

801 

DURATN 

295* 

1311 


EHABIEC 

355* 

1135 


ENBIDSSL 

219* 

392 

1195 

EHBITI 

320* 

1111 


FAIO 

193* 

914 


FA20 

900 

902* 



1329 


1282 


937 


1239 


12il 



FA3C 

YOi* 

911 


rAFNDIT 

910 

924' 


FANIT 

195 

900 

913' 

FAZCRO 

197 

901* 


FINDADDR 

A2A 

OSS' 


FREQ 

2 93 ‘ 



GRAPHIC 

231* 



HI 

1021 

1405' 


HHECN 

521 

523' 


HOUR 

<05* 

404 


lER 

20A> 

1003 

U22 

IFEACS 

1304 

1341 

1305' 

IFR 

305« 

1107 


INITCER 

I12< 

1113 


INITEIIT 

125 

042» 


IHRECB 

1050 

1357' 


INSHCD 

22l< 



INTREG 

i22> 

134 


INVCURS 

240< 



INVFNC 

350* 

1144 


INVPRH 

310* 

992 


INVRSE 

Ui* 



INVTBUD 

340* 

1223 

1244 

lOEClAMF 

«A< 

433 


iOEFNCCD 

45* 

350 


lOEIOREQ 

37* 

347 


lOERYBTE 

4Z< 



lOENFQRV 

57* 



ICENOBUF 

41* 



lOENODSP 

52« 



lOEHORlB 

53' 



iOENOOHH 

55* 



lOEKOPRT 

54* 



lOENOTIK 

54' 



lOENOTRN 

39' 



lOEFRHLN 

44' 

432 


ICETBEFL 

40' 

349 


lOETBUD 

39' 

340 


lOETBlIU 

41' 



lOETlHOT 

40« 



lOEUIOPM 

43' 

344 


lOEVNDBE 

44' 



lOEVNDCS 

45' 



lOEVHDDC 

44' 



lOEWHQDS 

47' 



lOEVNDFN 

43' 



lOEVNDIV 

41' 



lOEVNDVN 

30' 



IGEVKDVR 

49' 



IFRKBER 

1309 

1304' 


IDAOOR 

410 

721' 

029 

LEAPYR 

409' 

414 

1031 

EENPBE 

411' 

412 

443 

EENPBV 

414' 

415 


LOV 

1029 

1404' 


EYREC 

424' 

1049 

1074 

KINS 

404' 

407 


KNBTBLR 

154' 





HHBTDCV 1S2> 

HMBTDIIV 155< 

mSTSlT 15 3« 

HMBTSRV 15 

KHETSW 1S1‘ 

HHKICOD ISO* 

KMHIDTA M8< 

HKIOCOD 149 • 

KHLODT* 147* 


HOHTH 

403* 

404 





NIBBLE 

1149 

1358* 





NORUTOLF 

230* 






KOSCROIL 

242* 






KOTLECIT 

347* 

545 

542 

548 



NUMBER 

444 

1352* 





NUHENTS 

1019 

1180 

1279 

1381* 



NUMRECS 

331* 

339 

444 




NUHRP 

412* 

474 





NUMVP 

415* 

1002 

1030 




OFF 

23 

358* 





ON 

253 

357* 





PATTERN 

29 4* 

1319 





PBLENER 

432* 

482 





PPTBL 

332* 

444 





PSFSCOH 

71* 

470 





PTLEN 

337* 

443 





PTPC 

339* 

340 

452 




PTRUSRTN 

271* 

403 

1190 




PT5R 

340* 

451 





RANOES 

1003 

1343* 





RARDLEN 

701 

704 

1398* 




RAWRIEN 

1041 

1400* 





RDCERR 

494 

714* 

723 




RDCIOCR 

454 

488* 





RDCRIO 

779* 

792 





ROCR2I 

719* 

793 





RDCREC 

491* 

702 





RDCRST 

493* 

710 





RDDCHE 

709* 

711 





RDERR 

427* 

709 

870 




RDTIO 

141* 

871 





RDTENTMS 

845* 

894 

907 




RDTERR 

874 

878* 





READCR 

498 

777* 

839 

840 

841 

149 

REGA4 

211* 

282 

401 

1197 



RECA3 

282* 

402 

1198 




RECARRAY 

444 

494 

707 

947 

1047 

1 397* 

RUNT2 

317* 

1302 





RVUDDR 

420* 

817 

915 




RV4ADDR 

419* 

819 

888 




RVREC 

421* 

724 

114 

887 




SCBOOTDV 94» 
SCBOOTNM 92< 
SCCOOCJT IS> 
SCCURRK 102* 
SCCURRV 101* 
SCDEVTRB I4< 
SCDIRNAH IS* 



SCFREEKF 

in* 



SCHDA4 

33(< 

85? 


SCHDRS 

33 5< 

880 


5CHEDFTR 

33 3* 

858 


SCHEDSR 

3A2* 

857 


SCIORSLT 

71* 



SCJTRBLE 

81* 



SCKEHHRR 

73* 



5CNUMPRO 

70' 



5CNITFR0 

l»« 



SCFROCNO 

77< 

331 


SCFROTBl 

?l« 



SCHOOTW 

1I)C< 



BCBinBL 

77* 



5CSUSIHH 

107* 

330 


SCSUSREa 

ite* 

327 


SCSTSIN 

83* 



SCSYSOUT 

83* 



SCTODRE 

87* 



SCU5ERID 

103* 



SCUTABIE 

88* 



5CVRSDAT 

105* 



SCVRSNBR 

108* 



SCWNDTBL 

lOi* 



SECS 

(07* 

808 


SEIREC 

77? 

801* 

735 

SEni 

1303 

1335* 


SHHTREC 

312* 

1300 


SHUTOFF 

277* 

1305 

1323 

SKIFIST 

288 * 



SFNDFLC 

32 7* 

838 

871 

SPVAITC 

330 * 

878 


5T10 

887 

858* 


STACSIT 

183* 



5TACSRV 

188* 



STALSET 

183* 



STAISRV 

188* 



STBTSIT 

181* 



STBT5RV 

. 182* 



STINFO 

187* 



STINFOE 

172* 



STNDRV 

171* 



STHHBR 

187* 



STOPCIK 

88 8* 

782 


STOPT2 

318* 

1327 


STRTCLA 

818 

820 

858 

STRTSTOF 

82 3* 

858 

752 

SnYPE 

170* 



SUSPEND 

23 3* 



SVBIKIO 

125* 



5VCU 

135* 



SVCLOSE 

122* 



5VCRKPTH 

133* 



SVDELENT 

180* 



SVDSPOSE 

128* 



SVFIPDIR 

138* 



SVCET 

117* 



SVGETDIR 

132* 





SVCETVNH 13i> 
SVIMIT 110< 
SVKtRI 129* 
SVHAVML I3I« 
SVNEV 127> 
SVOFEK 121< 
5VPUT 111* 
SVPUTDm Ml* 
SVRDCHAR 121* 
SVRLEASE 130* 
SVSCHOIR 139* 
SVSEEI 12i* 
SVURUSr 117* 
SVUCIEAR m* 
SVUINSn 142* 
SVVREAD 113* 
SVUSTAT 134* 
SVUURITE 114* 
SVVAIDIR 137* 
SWRCHAR 123* 
SYSRHES 73* 
STSIYBDF 72* 
SYSVIN 231* 


TICK 

309* 

1104 



TlCl 

301* 

300 



TUH 

307* 

1109 



Till 

304* 

1104 



T2CK 

311* 

1334 



TEIMT 

322* 




T2lt 

310* 

1339 



TABICIN 

420 

13B0* 

1311 


TBEIDONE 

1320* 




TBEUIIT 

1330* 




TBEtWAIT 

1323* 

1324 



TBIFULI 

349* 

1189 



TCOUNT 

279* 

409 

1191 

1240 

TCRCXHIT 

1174* 

1111 



TCREEIT 

1114 

1203* 



TCRPOimO 

1177 

1190* 



TOEIERR 

1214 

1223* 



TDElEItT 

1219 

1224* 



TDSBERR 

1239 

1244* 



TDBBEItT 

1240 

1249* 



TDVNCNT 

200* 

281 

397 

409 

TENBERR 

1294 

1244* 



TENBEEIT 

1243 

1247* 



TCKTHS 

400* 

409 

411 


tenths: 

419* 

048 



TPIAGS 

277* 

319 

1174 

1194 

TICHKNIT 

391 

393 

390 

414 

TIHBSY 

994 

342* 



TIHCia 

393 

948* 



TIHOERR 

324 

349* 



TIHDTBl 

933 

930* 

390 

391 

TINE 

323* 

324 

329 


TINEH 

324* 

323 

1103 

1104 

TIHEl 

329* 

1104 



TIKERDRV 

912 

914* 

1401 



1193 12i0 


1211 1339 

419* 


392 993 


1243 


394 



TiMEHTBl 

384 

1388 

1087 

TI MINS’ 

330 

1081' 


TIMINT 

3 7 8 * 

1078 


TIMRCOl 

317 

3 33' 


TIMED 

331 

433' 


TIMST 

333 

1133' 


TIMTLEN 

11? 

1087 

1073 

TIKUHMT 

33i 

1131' 


TIKVR 

333 

771' 


TINE3T 

387' 

431 


TINSTIO 

1071' 

1071 


TSDERH 

843 

483' 


TEDEIiT 

438 

478' 


TEDCETP 

471' 

477 


TSTBEEL 

1131 

1300' 


T5TCHE8 

1133 

1171' 

1314 

737DE17 

1133 

1313' 


757DSBI 

1131 

1333' 


7S7ENBL 

1133 

1331' 


7S7ERS 

1134 

1114' 


7S77B1 

1137 

1131' 

1131 

7UNR7E 

13?' 

1123 


TVRERR 

774 

772' 


UNDSCR 

337 ' 



7NMCMD 

331' 

323 


'J7BLE 

143' 



UTBLK 

173' 



D70I0 

US' 



UTDRV 

147' 



U7I0DRV 

143* 



UTIEN 

174' 



U7M7D 

144' 



U7R0 

173' 



UTSII 

144' 



ITTS17 

147' 



U7SPT 

171' 



irrsRv 

148' 



unps 

173' 



■iTITtP 

170' 



VUBIN 

773 

loot' 


VAECAEC 

1380 

1237' 


VALERR 

1 383 ' 



VALEZIT 

1383 

1387' 


VALIDEN7 

384' 

370 

113 

VAIIDID 

1313 

1331 

1333 

VBCHZ 

1 307' 

1013 


VSERR 

1813 

1013 

1031' 

VEC70R 

37 3' 

1077 

1131 

VER7 

337' 



VID0EEL7 

33?' 



VIC3E7 

311' 



VRAPON 

311' 



'JRA7TRI 

331' 



WRAnR3 

333 ' 



VRBASEZ 

313' 



VREASE7 

I i 6 * 



■.•RBI70F3 

::i< 



VRCHARP7 

:n* 




H3I 


U7I 


Its: 


M7t 

iZ75< 


i3i?> 1370 1310 


1387 1370* 1311 


1133 1131 1133 


ilH 1311 



VRCVSADR 

113< 


VRCURSI 

n?» 


VRCURSY 

220< 


VRCRORCI 

222> 


VfRCRORGY 

223< 


WRHOHEOF 

214< 


WRHOMEPT 

212< 


VRITECR 

832 

831 

WRITEREC 

?82‘ 

987 

VRLENCTH 

24?< 


VRLNCTHI 

22 7» 


VRLKGTHY 

21l< 


VROHER 

?4!» 

953 

WRRCDIEN 

247‘ 


WRSTATE 

244* 


mott 

82 2* 

523 




ORV.DTACON.TfelT 


tl4< 1 


l< , 

lili . dll 

dticoi. Itil 



2> . 

dilt : 07- 

Fsb-1713 



3* , 





4* 1 

Tbis IS th( 

ditbcoi diittc 

sourcA 


5* , 





4* , 

dill 

Or 

t«v leifel 

COM&MS 

7’ i 





1' ; 





»' , 

10/12/12 

tpk 

1 

Initiil itisioa ng ptolocols-nothig 

10« , 

10/21/12 

ipk 

1 

added lUte lint feed fUq on wiites 

a* , 

10/27/12 

tpk 

3 

HADE EUSy ONLy TELL ABOUT READ BUFFER 

12« , 

11/27/12 

kb 


Stalled adoitlons lot protocols and 

13* , 




coipatibilit; with old printer driier 

11* , 




nnitstatus interface. 

15* , 

01/05/13 

kb 

4e 

changed ante line feed flag oseage 

14* , 

01/04/13 

kb 

4t 

added switch of water larks when switch 

17* , 




to default read buffer. 

11* ^ 

01/12/13 

kb 


filed bug in FINDLIN lootine, using 

17* , 




wiong register lor bit test, changed 

21* , 




bit nuihet register frci DO tc D5 . 

21* 1 

02/07/13 

kb 


added setup gf UART base reg In DCTLINT 

22* i 




in Chklines 

23* , 





21* , 


25* ; 





24* ; 

INCLUDE rues USED : 



27* , 

Iccos/os.^bl isk.tcit 


.OS OLOEAL EQUATES 

21* ; 

deoi.cqu. Ittl 


.definiticns fer driier 

29* i 





30* , 

INCLUDE OS 

CL0BAL3 HERE 




2«5« UST I 

28i< iKCLUOe 'OCOK.EQI/.TEIT- 



File. DRV DTICON.TCIT 
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288* 

. Etinelts lor DaU cei 

dr ieei 




289* 

, till , DCOn.EQU.TElT 





290* 

, date . 24 - Janurf 

- 1983 




291* 







192* 

iaddid ditinition 

ot LFspcstlo ai 

byti value ot 

UCSD and Apple p-sys(eis 


293* 

, lodi tlaof 

(DS) 

: 1-24-83 

kb 



291* 







293* 







296* 

, EQUATES fOX ALL 

DATACOK DRIVER 

SOFTWARE 



297* 

. IIT NUKBER DEF1N1TIOH3 




198* 

, 





OCQOOOOO 

299* 

BITDO CQU 


0 


,BIT 0 

02011003] 

300* 

81TD1 EQU 


1 


;B1T . 

00000002 

301* 

BITD2 EQU 


2 


.BIT 2 

23000003 

301* 

BtTD3 EQU 


3 


.BIT 3 

tooooooo 

303* 

BIT04 EQU 


4 


.BIT 4 

02QOOOOS 

304* 

BITDS EQU 


S 


.BIT 5 

SOOGDOOi 

SOS* 

BIT06 EQU 


6 


,BIT 6 

03000007 

306* 

B1TD7 EQU 


7 


,BIT 7 


507* 







308* 

, riaof tot foil 

coiion Flag word 




309* 

, 





00830000 

310* 

POBTFIQ EQU 


SITDO 


,1F 0 THEN INIT PORT 0 ELSE JNIT PORT 1 


311* 

, 






312* 

; Bstftr Gonliei 

table 

INTERNAL Flag bit detimtions *<LO BYTE*** BFJKTl 


313* 

. lew oidet bite 






3M* 

, 





00003000 

315* 

ENOriC EQU 


B1TD4 


,SEKT EKQ WAITING FOR ACK 


316* 







317* 

. fiftlet Conticl 

Table 

PROTOCOL flag bit detifiitions *»**lo byte**** BF.PROF 


318* 

, 





OODOOOOO 

319* 

LIKE EQU 


BITDO 


.LINE TYPE HANDSHAKE 

00303001 

320* 

lONIOFF EQU 


BITDl 


.lON/IOFF HANDSHAKE 

00300002 

321* 

ENQACX EQU 


BIT02 


.EKQ/ACK HANDSHAKE 

00000003 

322* 

CT5LIN EQU 


SIT03 


.LINE IS as 

00300080 

323* 

DSRLIN EQU 


BITD4 


.LINE IS DSR 

ooeoooQS 

324* 

DCDLIN EQU 


BITDS 


.LINE IS OCD 

00003006 

325* 

INVBUST EQU 


BITD6 


.INLINE IS INVERTED(O) WHEN BUSY 

OC002007 

326* 

ETIACX EQU 


BITD7 


.ETK/ACK HANDSHAKE 


32 7* 

, 






328* 

i BUFFER CONTROL TABLE 

PROTOCOL FLAG BIT DEflHITiONS ‘»»HI 8YTE»**BrjRaF 


329* 

, 





30600000 

330* 

PROT.F2 EQU 


BITDO 


,IF SET THEN SOME TYPE OF PROTOCOL EIIST5 


331* 





.ELSE NO PROTOCOLS -BUFFERS OVERFLOW ETC 

oooeooot 

332* 

KQDK_P2 EQU 


BITOl 


,IF SET THEN A MODEK PROTOCOL EXISTS 

00900002 

333* 

KH00_f2 EQU 


8ITD2 


,ir SET THEN NULL MODEM FROTOCOUFROBABLY OF 

LITTLE USE) 







38300003 

334* 

FULL.P2 EQU 


BIT03 


,IF SET THEN FULL DUPLEX (DERFAULT) 


33S* 

, 




.OTHERWISE HALF DUPLEX 


336* 







337* 







338* 

WRITE BUFFER flaq word bit 

definitions 

FLAG 1 -)>U b|te 


339* 

; 





90000000 

340* 

BUSI.Vl EQU 


BITOO 


.WRITE BUSY FLAG 

OOOOODOl 

341* 

ERX.Ul EQU 


BITDl 


.BUFFER SIZE ERROR FOUND IN IMIT INT RTN 



DRV DTXCOM TEIT 




Pege 3 


DOOOOOOZ 

342* ALTBf.Wl 

EQU 

BIT02 


,[F SET(l) HAVE ALTERNATE BUFFER TO USE 

00000004 

343* OUTE_Wi 

EQU 

S1T04 


,1F 0 DATA FROH BUFFER TO PORT ENABLED 

OOOOOOOS 

344* INPE_W1 

EtiU 

BITDS 


,1F D.DATA FHOK USER TO BUFFER ENABLED 

OOQOOOOi 

34S* OUTC.tfi 

EQU 

B1TD4 


I IF SETm THEN USER IS CONTROLLING OUTE 


340* 




.OTHERWISE CONTROLLED INTERNALLY 

OOOCOOQ7 

347* INPC.Wl 

EQU 

BI7D7 


,IF SETH) THEN USER IS CONTROLLING IKPE 


348* , 






349* . WRITE 

BUFFER (Uo word bit 

deliBittons 

FLAG 2 '>Mo byt« 


350* , 





ocoooooo 

351* rULt,_U2 

EQU 

BITOO 


ilF SET (i) THEN BUFFER IS FULL 

OOOOOOQl 

352* EHP7.W2 

EQU 

BITS I 


ilF SET (U THEN BUFFER IS EHPTV 

00000002 

353* LGST^W2 

EQU 

B1T02 


.DATA LOST ON INPUT (USER OVERRUNS BUFFER) 

00000003 

354* SKDLf.V2 

EQU 

B1TD3 


ilF SET THEN SEND AH IF 

00000004 

355* Anf^W2 

EQU 

8ITD4 


;IF SET THEN clwiys send 4 LF iftu c CR 


354* , 






iiV ; HEAD BlfFEEil lUf void bit 

deiinitions 

FLAG 1 -))LO BYTE 


358* , 





00000000 

3S9* flUSYJI 

EQU 

BITOO 


.READ BUSY FLAG 

OQOCOQQI 

340* ESRJl 

EQU 

ElTDl 


iUART ERROR FLAG 

oooooooi 

341* ALTBFJl 

EQU 

B1TD2 


,IF SETH) HAVE ALTERNATE BUFFER 70 USE 

00000001 

342* OUTE.Rt 

EQU 

B1TD4 


,1F 0 DATA FROH BUFFER TO USER ENABLED 

oocoooos 

343* INPE_RI 

EQU 

BITOS 


ilF 0 DATA FROK FORT TO BUFFER ENABLED 

OQOOOOOi 

344* ODTC.Rl 

EQU 

S1TD4 


,IF SETU) THEN USER IS CONTROLLING OUTE 


345* 




; OTHERWISE CONTROLLED INTERNALLY 

00000007 

364* INPCJI 

1i 7t 

EQU 

BITD7 


,IF SETU) THEN USER IS CONTROLLING INPE 


34fl* . READ BUFFER (Uf mii kU 

definUtons 

FLAG 2 LO BYTE 


369* , 





DOOOOOOO 

370* FULl_R2 

EQU 

BITOO 


ilF SET (U THEN BUFFER IS FULL 

OOOOOOOI 

371* EMPT_R2 

EQU 

BlTDl 


:IF SET (U THEN BUFFER IS EKFTY 

00000002 

372* 10ST_R2 

EQU 

B1TD2 


;DATA LOST ON INPUT (PORT OVERRUNS BUFFER) 


373* . 






374* , CONTBOl CHARACTER BUFFER fUg vord bit 

defiaitions LO BYTE 


375* , 





00000000 

376* FUIL.CB 

EQU 

BITOO 


,1F SET U) THEN BUFFER IS FULL 

OOOOOOOI 

377* EHPT_CB 

EQU 

BITOl 


;ir SET (1) THEN BUFFER IS EKFTY 


378* ; 






379* i 48000 Intctrypl Aoto Victor AOdressofl 



380* ; 





QOOOOQ&4 

381* VECl 

EQU 

844 


,AUTQ VECTOR 11 -DATA COK CONTROL 


382* 




;This is the VIA ased in line 


383* 




.protocols 

DOOOOOiS 

384* VEC2 

EQU 

848 


iAUTO VECTOR 12-OC 1 

00000070 

383* VECl 

EQU 

$70 


jAUTO VECTOR 14-DC 0 


386* , 






387* i 








389* i 






390* i Uilt no Couiiut 

cedes '-toaad 

IN D8.V 



391* , 





00000000 

392* INSTCKO 

EQU 

0 


i Instill tht onlt 

OOOOOOOI 

393* BEADCHD 

EQU 

1 


i loid ooaiind 

OOOOOOOI 

394* VRCKD 

EQU 

2 


; writ! ceuind 

00000003 

395* CLRCNO 

EQU 

3 


; CLEAR THE UNIT 



Fill DEV, DTACOK. TEXT 


Pigt 4 



OOOOOfiftI 

394* 


eooooofis 

397* 


OOQOODOi 

390* 



399* 



400* 



401* 


ODOfiOdOC 

402* 



403* 



404* 



40S* 



404* 



407* 


00000000 

400* 


00000001 

409* 


0D000SD2 

410* 


00000003 

411* 


00000004 

412* 


00000003 

413* 


00000004 

414* 



415* 



414* 



417* 


OOD0D0O7 

410* 


ooDoooei 

419* 


00000009 

420* 

REE) 

flOOQOOQA 

421* 

n IN BFR) 

00000008 

422* 

LE) 

oooooooc 

423* 

LE) 

ooflooeoo 

424* 

BLE) 

OOOQOOOE 

425* 

LE) 

OOOOOOOF 

424* 

FFER 

00000010 

427* 

FER 

DQOQOOU 

421* 


QOOOOOll 

429* 


00000013 

4^0* 


00000014 

431* 


00000014 

432* 



433* 



434* 



435* 



434* 



437* 



431* 



439* 



440* 



441* 


BUSTCHO 

EQU 

4 

ST8CHD 

EQU 

S 

UKHCKD 

EQU 

4 

; loda Magi — loaid 

in D4 V 

LFipridg 

EQU 

40C 

i STATUS COKKANDS 

FOUND IN D2.V 

. (pnetioni 

cQtpallbli witb «ld ptiil 

02JHEEV 

EQU 

0 

D2JAUOS 

EQU 

D2.FREEV«1 

D2.PAHTY 

EQU 

02JAU03tl 

D2.FREER 

EQU 

D2_PARTY*1 

D2.CHAR3 

EQU 

Dl.FREElal 

D1.HAK0S 

EQU 

D2.CHARB41 

Dl.BFCTRL 

EQU 

02_HANDS4l 

. law lanetiaif 


02JE9TS 

EQU 

D2.6FCTRL41 

02JfflSTS 

EQU 

D2.RS8TS41 

D2_tCAKI 

EQU 

D2_WR5TSfl 

D2.IEALO 

EQU 

Ol.REAHUl 

D2JUTRD 

EQU 

D2^EALO«l 

D2.1KBRD 

EQU 

02.QUTR041 

02_0UTVT 

EQU 

D2_IK8RD*1 

D2.1NBVT 

EQU 

D2_0«TVT4l 

D2.VBCHR 

EQU 

OlJHBWTtl 

02JICKI 

EQU 

OE^VBCHRtl 

02_ATLr 

EQU 

DZ.RBCHIat 

D2.IENQ 

EQU 

02.ATLf4l 

02JDALTB 

EQU 

02.BEKQ41 

D2_WTALTB 

EQU 

D2_RDUTBat 

TBLBTATE 

EQU 

D2_VTA17B 


buif coBkand 

, STATUS COKHAND -ACTUAL COKKANDS IK DZ'V 
; uniouBt coBiand 


. Auto LF lapprcsa biti 2 or 3 


RETURN VRITE BUrPER FREE SPACE 
SET READ/VRITE BAUD RATE 
SET PARITY 

, RETURN READ BUFFER FREE SPACE 

SET CHARACTER SIZE 

SET HANDSHAKE HETHOD 

RETURN STATE OF BUFFER CONTROL TABLE 


i RETURN READ STATUS 
; RETURN VRITE STATUS 

,SET READ HI WATER HARX(NHBR OF CHARS LEFT F 

;SET READ LO WATER KARXINHBR OF CHARACTERS L 

;USER DISABLE OF OUTBOUND READ (BUFFER DISAB 

.USER DISABLE OF INBOUND BEAD (DEVICE DISAB 

.USER DISABLE OF OUTBOUND WRITE (DEVICE OISA 

iUSER DISABLE OF INBOUND WRITE (BUFFER DISAB 

i RETURN THE NUHBER OF CHARACTERS IN VRITE BU 

i RETURN THE KUHSER OF CHARACTERS IN READ SUF 

iTOCClE aote LintFtid Mag 

iSST noibat ol cbari bitviin ENO'i o( ETI'i 

,9fl Rtad AltirsaU litfii 

.Sit Vriti Alteruti BofUt 

;TRf lilt ilatQi taBoticn coda 


THE ABOVE IS VIED AND VOOLY AND KAY IE OF LimE US TO A BIHPLE 
HIGHER lEVIl PROTOCOL- HOWEVER THE HIGHER YOU GET THE HQRE USE 
80KC or THESE REPORTIHG FUNCTIONS KAY BE 



Filt DRV DTtCOn.TCIT 


Fl)l 3 


iow delict inU 
inte 


AD DATA 



4(3* 

, 




4(4« 

, 6(000 ! 

it4t«S lt0lsUl 

: valtiti 


(45* 





(14* 

, 



flOOOMfifi 

44?» 

UPRKSX 

tau 

lACOO 

00002000 

(11* 

STATEKSIL 

EQU 

(2000 

00008303 

44(* 

TRACEHSK 

EQy 

48C0D 

OOOHD700 

ISO* 

IKTM5K 

iQU 

10700 

OQ000100 

151* 

INTI 

EQU 

1100 

G0O0D200 

452* 

INT2 

EOU 

(200 

sooootoo 

(53* 

IHTI 

EQU 

(100 

00002(00 

451* 

DtSiNTI 

EQU 

(2100 

00002200 

1SS* 

DISINT2 

EQU 

(2200 

00002100 

4Si* 

OISINTI 

EQU 

12100 

DOODOOOl 

457* 

CARRYST 

EQU 

(0001 


458* 

, 




15T* 

, VU Addr««<c4 



no* 




Gooaoro 

161* 

ORA 

EQU 

(30f63 

OQoaori? 

(62* 
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! 
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5 
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00000006 

4M* S.D8R 
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577* . 
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00900000 

S!»* Off 

EQU 

0 

.LISTING CONTROL - STOP LISTING 

ooooooro 

SH< HItONSK 

EQU 

$fO 

,NASK OFF WATER HARKS -TKRO THEH AUAT 



fill DUV DTUOK niT 


P<4« I 


tmiT I/O ruMCTtii rusiKC oeriNiTioN 



CfflOMNO 

UNIT 

iODI 

COUNT 

noex RODE 

lOIESUlT 


• iNimi 

DO V 




07 V 


- RttS 

Dt.V 

01 1 

01. V 


07 .V 


- WRITE 

Dt V 

Dt.l, 

Dt.V 


07 V 


- CLEU 

Ot V 




07 V 


- SUi! 

Ot V 




07 V 


- STtTWS 

Dt.V 

Dt.L 

Dt.V 

--EUNCT10N CODE 

07 .V 


- umouNT 

01. V 




07. V 


HI itcimi mm on iktiit mc sivto /ino aesTCRto cictri ot ( o? 

INT»NU lEClSTEI VSENCE : 


Dt 

01 

o: 

03 

Dt 

03 

01 

to 

M 

112 

t 3 

M 

»S 

tl 


ttip itp 

t<ap III 
stirs (Cist 

chiicctii Ic 01 till bilfii 
ssit Blltll 

Hill li(( 1 IB OC ctl iBt itni - VIk li«i bit I 
Kit It St 
tup tip 
tup lip 

tiap III 

PiriMtii block tddiiss (uiii's ditil 
bolfir iddiiit IS SitipVI end SitipRI 
UtIT bill (ddiftf 
Poiilti to poit ‘1 dati 1110 



Ftft 9 


filt DAVOTACONTtlT 





423> 

CLOSAL 
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CLR.L 

D7 

002E 

2441 


4414 

7IOVEA.L 

01, A3 

B030 

0224 


442' 

CLR.L 
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COnST-COHTBl 

1042 

047C 


444> 

DATA.V 

COHUNHT- COHTBl 


,JUHF AROUND HEADER 
, DEVICE NOT BLOCAED 
^VALIO CHD3 - ALL VALID 
.DATE 

.HEADER HSC' LENGTH 
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(77* 



00(1 

Oltt 

om 

(7I> 

LEA IFKTKAO, AO 
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CHF.W Dl, DO 


;is coireot < curceitt Fort's ietsi 

OOAC 

<40C 


730* 


BCC.S DlTeiii 


ioo, eiil 




731* 

i 







732* 

1 KOV 9it ip dtsiklt with liniBim dittgibinei 

of upper leiel 




723* 

. 

itilet bits this too wont Mock if met ind 




734* 

, 

sopirnsor spice ice both utilised. 




735* 

, 




OOAE 

40C4 


72<* 


HOVE.W SR, D< 
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, Setup HART'S Couind 

register - indti a 

5 1 roi Base 




701« 

, itle trtnsiit buffer 

eiptp interrupt enabled - vhen occuis int rtn will 




782« 

, turn off if buffers 

are eiptf 





7J3« 




lort 

7005 


780' 

HOVEQ 

OCHDRVC, DO 

,CND CONSTANTS iBit int enabled 

OlirA 

I22E 

ODOC 

785« 

HOVE . 8 

BF_PARTiA4l, 01 

;GET TABLE PARITX 

OOFE 

EBOi 


784* 

ESL.B 

15,01 

,PUT IN CORRECT BIT POSITION 

3100 

1001 


787« 

OR. 8 

01,00 


0102 

1800 

0003 

788* 

HOVE . a 

D0,CKDRECI(A3) 

,FHT IN COHHANO REGISTER 




789* 

, 






770« 

, Reid tbe Oati Fort and Status Register to clear all Status flags 




791« 

, 



01O( 

102D 

000 1 

79 2 1 

HOVE . 8 

DATAREC(AS),O0 

.DATA PORT AT INDEX a 1 

OlOA 

1323 

00 03 

?93« 

HOVE . 8 

STATRI IAS 1,00 

.STATUS REG AT INDEX a 3 

CICE 

0E73 


790* 

RTS 





m* ORV.DTiCON.TCIT 




111! 4BFt 0Q03 0F20 
Oil. Bfi7A aOCOt 
OIU 6?04 
one DAFC 0010 
9110 U7S 


fU» , 

W' . CETIAS 
701" , 

779* , 

100* , 

OOP GCTBASE 
101* 

IC3* 

104* 

top CSStaFO 

lot* . 


Cot iddcits it U'ART's cigiicii Iau idd(i«i in Ataaiy 
{Bviy 04 * unit fteabfft 
CUT «AS) s last idditis 


WARTOCO.l. AS 
OnitfO, D4 
CSSiirO 

iociorr. AS 


.AasOHC USING DATACOK 0 
,is il Pori 0> 

.ytf 

,No. BASE 4 OFFSlT^UART DCO BASE ADDB 


fflt ittutiBo's tntif tOdrosieo into (bo intecrupl voctois 

Il fort 0 pat IB Ob A int tin ooditii >n Vecioi 4 
othcrwiio tosust If pan : 

Sovts sit Ilftl 1 iMttiapi ocoioi ti ir :s not a to this dnoer t 
intiiupt tautinof odortif. 





113* , 

entry 

1-4 • unit naabar 








814* , 


inuttaptf dtiiblnO to 

Uf«i toi cuiiont Port 







015* , 







0111 

4IFA 

04tC. 

8U* SETVCCS 

:CA 

CbTUia.AO 

,PUT DATA COM CONTROL 




out 

1171 

0014 

on* 

nOVEA l 

VCCi V. A1 

,Gii Old loctor 




0I3A 

lies 

0014 

eu* 

HOVE L 

AO.VCCl V 

■INT ROUTINE IN VEC 1 




012E 

B3CI 


017* 

:nfA i 

AO, A1 

.should site old vecut 




0130 

a704 


110* 

m 5 

SVCfiat 

.no. (luv C( th« soao 




0131 

4iFA 

DDII* 

til* 

LEA 

iiocliH, AO 

■ffli S4VO in coaibn iteo 




0131 

1007 


til* 

nevE 1 

Al. ;A0> 








813* 







0131 

II7A 

OOAC. 

814* SVCI4IC 

CHP.W 

UnitPO, 34 

.IS H Pott 0* 




one 

410A 


815* 

BKE S 

SUCdofi 

.no, do itiel 2 lot Pott 

1 






lie* 







0I3E 

41FA 

Or.Ct 

W* 

LEA 

:C9INT,AO 

AUOR OF CCS entry point 

to EMlTiRCV 

IKT 

ivC 

ou: 

lies 

007C 

818* 

HOVE 1 

AO.VCCl V 

,pot It :h V'EC 4 




0144 

tOOA 


817* 

ERA S 

SdCtiil 








130* 







0141 

41FA 

0ii0< 

831* SVCdflPi 

LEA 

CCUKT.AO 

.ADDR Cr DCl entry point 

to XMiT-'RCV 

:nt 

RO 

S14C 

net 

OOtl 

831* 

NOVE-i. 

AO.VEC: V 

.put it in VEC 1 







833* 







OISI 

U75 


134* SVCoin 

RTS 








DRV OTKOH TEIT 


IS 


Ti 1 » 





S3i* 

; 








03?' 

: INIVRBF • 

Uitiilite Viite SofUr t4rubl«« 

to EKPTY EufUi ilfo ENQ, BUSY ifld 




S3B> 

, 

SENDir ui 

cieiieO to uUe. 

Vie 

deuult buMd 




039* 

, 





015; 

^ i Eb 

0014 

S40* 

INIVRBF 

LEA 

VflTCTL!A4/.A0 


.WRITE BUFFER CCNTRCL TABLE 

015'. 

42SB 


S4U 


CLR U 

UOt* 


, RESET ALL FIAC 1 

0:5! 

a:i8 


G42* 


CLR B 

(AO)* 


.RESET ALL FLAG 2 eicept 

01 5A 

DGLO 

:oo4 

843* 


BSET 

lAUir.Vl.iAOt 


, DO ADTO LINE FEED enil *bb l/S/13* 

o;.E 

CSSS 

COOl 

044* 


ESC? 

IEHFT_Vi,(AO)* 


i BUFFER IS LKPTY 

0 ; 6: 

mz 

ouc 

845 ' 


LEA 

UETBUriAAl. Ai 


, WRITE BUFFER 

OUe 

:gc9 


844' 


HOVE i. 

Ai .• U6/4 


.FILL POINTER (USED TO FILL CHARACTERS IN) 

i\i't 

2CC7 


84?» 


HOVE L 

Al,(AO)* 


.lHPTY POINTER (USES TO EHPTY CHARACTERS OU 

OUA 

ic:» 


S48* 


HOVE L 

At 1 1 AO j * 


/S«ve buHet iddiiis 

01 ftC 

) V F C 

0(03 

84U 


HOVL U 

iU&FLCN.tAOi^ 


.HAEIHUH SIZE OF BUFFER 

‘'7' 

ocrc 

OiU 

650' 


KuVE V 

•WEFLENtUOt* 


,NUH8ER OF LOCATIONS AVAILABLE TO FILL 


i'5 


851' 


RT5 







os:» 









S53* 

, iiilRDfiF - 

iftitiiiitt 

REAO SultiK latubUs 

to EHPTY Bullet M«o ENQ, BUSY end 




854* 


SEHDCF it* 

ciuto4 to lolsi. 

Uift 

defiuU bullet 




055* 






01?i 

Oitf 

;030 

65 e* 

INiROBt 

lEA 

EDC7LU4 1 1 AO 


.RlAU buffer CONTROL TABLE 

Ci7A 

4;‘v:' 


857* 


CU V 

UOU 


, RESET ALL FLAG i 

C17C 

4Z1B 


858' 


CLR B 

iAOU 


.RESET ALL FLAG 2 cicept, 

3)71 

OSDS 

3C6. 

85!* 


BatT 

tEHPT_V2.(Afi)* 


. BUFFER IS EHPTY 

aiei 

UCE 

GC5C 

80u* 


LEA 

RDBUFiAiUAl 


.READ BUFFER 

OiOt 

SOC^ 


8i;* 


HOVE L 

At < ( AO » t 


.FILL POINTER (USED TO FILL CHARACTERS IN) 


;oc' 


88 3' 


HOVE L 

A1,1A0)» 


.EHPTY POINTER (USED TO EHPTY CHARACTERS QU 

dlSA 

IOC! 


843* 


HOVE L 

AMAOu 


.Sevi bufier iddtefs 

GISC 

30FC 

OiOO 

844* 


HQVE.U 

IEBFl£N.(Aa)f 


.KASIHUH SIZE OP BUFFER 

ono 

30FC 

0100 

845' 


HQVE.W 

IRfiFLCN.iAOit 


.NUMBER or LOCATIONS AVAILABLE TO FILL 

01*4 

4UB 


844* 


CLfi.L 

lAOlt 


iCUit tHitnktft buiut eOduse 

r.u 

4258 


647* 


CLRV 

UC1» 


.Cltii eltetneti boUii length 

oin 

30FC 

0015 

848* 


HOVE V 

bHAl8Hl,(Ag}4 


.HUHBER OF CHARACTERS FOR HIGH WATER HARR 

CIK 

im 

0 05 0 

|4?» 


HOVE.V 

•HAEELO.fAOu 


, NUMBER OF CHARACTERS FOR LOW WATER HARR 

QUO 

4;S8 


670* 


CIR V 

(AOW 


.CLEAR ENO COUNT 

Uhl 

4E75 


171* 


ETa 







872* 

, 








673* 

. INITCTIB 

• Initidiu tilt ctiuoi chiitetif (vllii tc iiMy 




674* 

, 





0U4 

41EE 

00 5 8 

675* 

INITCTIB 

LEA 

CTlBUFlAi), AD 


; CONTROL CHARACTER BUFFER 

OIAI 

43EC 

004E 

874* 


LEA 

CII_rROHT(A4», Al 


,CTl CHAR SUP TABLE ADDRESS 

ouc 

Z2C8 


87 7* 


KOVE.l 

AO, (Ml* 


iiet liopt end 

OUE 

22C8 


676* 


KOVEL 

AO, tAU* 


itetr peiutetp to bigu of bullet 

OlEO 

4251 


179* 


CLR.V 

\kU 


,eU»t 4l 1 liiBi iiecpt 

OlB! 

08E9 

0001 0001 

880* 


BSET 

«HPT_CB. HAD 


.bvllir liptf 

Gise 

4C7S 


881* 


RTS 






Fill, m DTKW TEIT 


U 


CCHRD - ITHITREAO RCAO FROK THE OATACOK BUFFER 

INPUTS. .Di COUNT OF CKARACTERS THE USER VAHT5 TO RCAu 
D< unii nutbti 
A3 ADDRESS OF USER'S SUFFER 

Al Addrsfs oi poiis aata ana 

NOTES For reading, interrupts wiii eccvr whir, the inpat builer is iuU -nc 

priiing is ntcissarf ai is with wuung Also i( fail dupiii dctiiiues 
then i read and write interrupt lay be the sale inurrupi. 'hAfe to checi 
aUtus fiagi of UART 

Pint see if eier’i oeunt is eshausted U not atteipt a read 


018A 

4A42 



8?it 

COHRD 

TS7.V 

Cl 


oiec 

4734 



8?7* 


BCQ.S 

COKREI 

, COHREX OCHERAL EliT ROUTINE 





toe* 









!79« 

. Cbeok If 

the Bser 

has disabled output • Buffer 

to Uier 





voo» 





aiBE 

082E 

8004 

0031 

701* 

REREAD 

ETST 

IGUTEJl.RBJLCU^As) 

,1S BUFFER TO USER TRANoFER EKAEIED* 

G1C1 

4704 



702* 


Bca.s 

CAKdEcr 

, !E3, check for inpur erioi os UART 

OICA 

7E3D 



703* 


KOVEO 

llOCoidibl.C? 

,ac, tCi 1 user car. t «> ERROR 

OICI 

sOaA 



704* 


BIA.S 

COHREX 






703* 









704* 

, Cbeek for 

a UART error 






707* 

i 




SICA 

S8AE 

0001 

0031 

708* 

CKRdCrr 

flCLR 

lEirJl. BflJLGUUAo) 

.Have a reao error 

DIDfl 

(7D4 



90?» 


ECFF.S 

CKPORT 

,no, see it have data 

DIDI 

7143 



710* 


novEG 

f IGCuarter .07 

,yes, teii user and tiit 

0104 

sOlC 



711* 


ERA.S 

COHREX 






712* 









713* 

. if there 

n any data in (he bafftr, giie it lo 

usee. If there is no data and 





SM* 

the user 

has diiabitd the inbound read, reiind hii. However if there is no dau 





715* 

put hii 

in a loop waiting for data. 






914* 

, 




OlDt 

OSZE 

0081 

0033 

917* 

CIPORT 

BTST 

lEHFTJl.RB.FLCZtHAdl 

.BUFFER IS EHFTV* 

OlDC 

47DC 



918* 


BCFF.5 

RSADONE 

, HO, GO BEAD A CHARACTER 

OlDC 

D82E 

0003 

0031 

919* 


BTST 

lIHPE.RlrRB.FLCitKAal 

. yes, INFUT EHABLEu* 

D1E4 

47D8 



920* 


lOFF.S 

REREAD 

, YES, wait for a char 

OlEi 

7E3C 



92l» 


HOVEO 

oiOEirdsbl.07 

,no, tell aiec input is disabled 

out 

4QDA 



912* 


BRA.S 

COHREX 






723* 









724* 

, get uier 

his charactecs and linage boffer 






925* 





OlEA 

AiOA 



924* 

REA2QKE 

ESH.S 

UGCTCHR 

.GET THE CHARACTER FOR THE USER FRON 

QlEC 

4S84 



927* 


BCS.3 

COHREX 

,eiit if error. D7 has error code 





928* 









929* 

i Fat character is 

ofit's bofier and update 






930* 

, 




OIEC 

t4C3 



931* 


HOVE . 1 

D3,(A3H 

.spdale buffer pointer 

OlFO 

S342 



932* 


5UBQ.W 

tl.Ol 

isubliici one Iron siei count 

Dtfl 

48C4 



933* 


IRA. 5 

COHRD 

.GETSKOA If AVAILABLE 





934* 

, 




01F4 

4E7S 



935* 

COKRU 

ITS 





"lie 


CRV OTKOM TEIT 


Fife 17 






73 7* 

, 1/GE7CHR --- Usee level Qct eli4(ictee 

(out me, 

gets the clutecur ftci the reed buffet 





?33‘ 

, 








?39* 

Enltf A4 e 

pointer to ports 

dati iiti 





910* 

D2 > 

Qser count 







941* 

24 • 

unit auiber 







#11* 

beiiet is NOT eaptf 







943* 

Em 03 « 

chmctec if one 

gotten 






914* 

iC) s 

Error, 07 hu ettoi code 






945* 

(NCI • 

got d chiiectir 

no error 






9 4 4* 





0 1 Fb 

olOG 

tE»E 


94?* 

I'CETCHR B3R 

DiSlNTS 


idisible interupts 





948* 





iin 

• 04b 

0038 


»49« 

KOk'E.L 

S8_EHmiA4). AC 


,A0 EKFTYINC F031T10N OF RD BUFFER 

QiFE 

16i8 



9i0* 

HOVE 8 

iAOU.Da 


.Get chits 

G203 

2C4S 

0G3I 


9U« 

KGVE 1 

AO, RE_EHPT!riA4) 


,&4ve the new Fioni pointer in rb.siptf 





952* 









951* 

} ^ i t 

. Updete butfeir ui lebles 



02u1 

2:4E 

GOIC 


ns* 

HOVEL 

fiBJASR(A4}, A1 


;Al > ADDRESS OF BUFFER BEGIN 

0201 

:izcE 

00 40 


954* 

ADDA U 

RBJIZEaSi, A1 


,A1 « ADDRESS OF END GF BUFFER 

C2GC 

Bict 



95?» 

CKFA L 

Al. AO 


,(i Front pointing segond butfirl 

o:oE 

«30b 



95 8* 

BLE.S 

UGCnowtp 


,Ko, don't do wtip stound 





959* 




,Yei, set front * iddt 1st bfti of buffer 

02 i ! 

2C4C 

00 3C 

0038 

940* 

KCVE . 

RB.SADKAi), R8_ 

EKPTV(A4t 

,Stvi the ASM Front poinlet in ib..etptr 





941* 

, 




G2U 

224l 

0041 


942* 

UCCDowrp ADDO V 

II, RB.rSEElAi) 


, SINCE VE COT CHAR. ONE KORC FREE SPACE 





94i* 









944* 

. S4< If buifet IS eeptf 







945* 





O^U 

322C 

eo4* 


944* 

HOVE.V 

RB.rREE(A4), 01 



C21E 

E24E 

0010 


94 7* 

CHF.W 

RI.BlZElAi). 01 


, 1 DP FREE LOCATIONS - BUFFER SIZE 

0222 

4S0^ 



9l8* 

BCE.S 

UCCfloUt 


; not eiptf if free ( me 

02M 

4212 



#49* 

BHt.S 

HCLFfiO 


i KELFHD 13 SERIOUS ERROR (fist ) site) 





9?fl* 

, 




02 2t 

asec 

000 1 

0033 

971* 

fiSET 

lEHfT.M, «B_riCl.l(AJI 

i BUFFER eiptp 

022C 

41SC 



972* 

8BR.S 

RCAIAUBf 


; see if should swiloh to «r Alterniti beffi 





973* 









97 4* 

, C« ptotocei ««ntiel. 

see If esn tmn 

eil Rm4 

Busy 





973* 

; 




S22E 

4114 



974* 

VGC&etat BSR.3 

Chkfroio 


.cheek protcccl 

0230 

4100 

resA 


9771 

m 

EHBINTS 


itsibl* lAlerrvpti 

02 34 

42S0 



97(1 

cm L 

CO 


. cltic cirry 

0234 

4E75 



979* 

RTS 








980* 

; 




02 31 

4100 

FEI2 


981* 

KEIFEO BSR 

CNBIKTS 


, SERIOUS lUHHER BUG 

CZ3C 

7E40 



982* 

NOVEO 

llOlossfii ,D7 


.SIZING ERROR 

023E 

44fC 

0001 


983* 

HOVE.V 

ll.CCR 


iSET CARRY 

0242 

4E73 



914* 

BTS 






rile 


DRV DTACOM.TEXT 


?«9« lA 






786* 








7B7* 

, ChkP[>)(g • checki 

low water itrk tot reading 

to sea it ehouid turn oti road bus^ 





488* 

GoUnbaif - c&tt| ^oint to Utn oft basir stit* 

on teceites 





719* 

, 







990* 

, KGTES Thi* fouiiBO that intifcapi* *m Utsibl«d priot 





991* 

. (0 

ite being inioked 


0244 




992* 

ChkProto 







993* 








994* 

, eheok it input disaOlod C*nnot turn ott busf 

it is disaaUd. 





JV3* 




U44 

062£ 

0005 

0031 

996* 

BTST 

lIKPEJi, Ra.fliUiiAoi 


024A 

663C 



997* 

SONS 

CPReiit 

.Input disableo eiit 





998* 








999* 

. i( (prctoooli cfublod) «nd (HOT Lini tfp«/ then ehaci li Oust 





1000* 

, 



aZ4C 

ooze 

0000 

0012 

1001* 

BTST 

epROT.ez, BfjRortA*) 

.putoooi enabled* 

0252 

*734 



1002* 

Bcrr s 

CFRiiil 

.no, eiit 

0254 

0&2E 

UOOO 

0013 

1 003* 

BTST 

lUHE. Br_PHOftUA4l 

.line (gpe 

G2SA 

I62C 



1004* 

BOH. 3 

CPReiit 

.jea. ein 





lOOS* 

, 







1006* 

, it bQiy then oheck 

i( buitei at or beiow lowwaioi laK 





1007* 




025C 

ooze 

coos 

0031 

lOOB* 

BTST 

eBOST.Rl, RBJLGl«ia»f 


0261 

*724 



1009* 

30FF.S 

CPReiii 

.not pusi eiit 





1010* 

, 







lOll* 

, It btillii at 01 b(l}w low vettc aeik then turn otf busy 





1012* 




0U4 

322E 

0040 


1013* 

HOVE.V 

RBJIZEtta). D1 

.SUrFER SUE iADDRESS Ct) 

Q26I 

726C 

0042 


1014* 

SUB.V 

RB.rRCEtAii. ill 

,Dl a nuaber ol ebare in baiter 

026C 

BZ6C 

GQ4C 


1015* 

CMF.V 

R6_lOVA(A6). 01 

. at ot beiow low water aack’ 

0270 

*216 



lOU* 

8K1.S 

CPRiiil 

, Ho. lilt 





1017* 








1018* 

. 11 at ot below when 

bu 89 10 teiH ott bof| 






1019* 




0272 

OBOE 

DODO 

0031 

1020* 

Goi/sbuff 6CLR 

iBUSI.RI, RB_FLGl*liA6) 

.clear buig slate 

0270 

7CH 



1021* 

HQVEQ 

tZOH, DO 

.assuae ICN/IOFF protocol 

027A 

OBZE 

000 1 

0013 

1022* 

BTST 

IXOHIOrr, EFJRGFtUA6> 

.seed b;le to other side saying not busy 

OZBO 

6602 



1023* 

BON. 3 

CPRion 

.send XON 

0202 

7036 



1024* 

XOVEQ 

lACK, 00 

.eiihet ETI/ACK or ENutACK so send ACA 

0284 

6iOQ 

90EC 


1025* 

CPBion 63R 

PQtCU 

.send the coniioi char 

0200 

4E73 



1026* 

CPReiit RTS 





ft i« 

:rv 

DTACOh 

TEXT 

1026» 



Pige H 







102 ?* 

, RChkAllEl 

- check 

It eiternttc buttet switch 

on read faulter 






1G3D* 

Rci 

input It 

iuiOBfttiCiUy disibled when 

user caiis unitetatus 






Ifljl* 

4WI t 

cfa butters . 







1032* 










1033* 

, Entry Ae 

ftddiess et port's diitt arti 






1534' 


interrupts aitibieO 







1035* 






e:u 

icU 

vOGl 

tC30 

1G36* 

RChUliBf 

ET5T 

lEMPTJi, REjL&ltitAftt 

, It outlet cBpty* 



«*<< 



iOO’* 


BOFF 3 

tCAEiti i 

,no, can t switch 


Ci ‘C 

C-iAE 

C';ci 

OGJi 

;C33* 


saB 

lALTOF.Rl, RB.riGUKAi) 

.IS an alternate butler asailablt* 

ilrl 

*■ lA 



l 0 i»* 


BCFF 3 

iCABeiit 

,no. nothing to switch 






1545* 

, 









1C4£* 

, Switch buileri by likino (he Altfinitc boHcr 

the Bain butter 






1D42* 







I 

t044 


1043* 


RCVE.L 

Rfi.ASASRiAftJ, Ad 

, 9 «( new buttet address 



301£ 

3C4E 


.044* 


NGVE.W 

RB.ASUCtAfti. DO 

.and U 119 IA 


liUi 

cic; 

5750 


iw45» 

1Q4&« 


B3R 

aetupRB 

.switch butter in table 






104.'* 

, it us«r IS NOT ccruroiiing the input disibU 

bit then enable RCV input 






\: h * 

, 





3;A: 

4i:e 

5C:1 




:ea 

RBJECltlUft), AO 

.EnbRcvIn iteeds AC -) flap 

byie 

c:aa 

CEiO 

ao;v 


13S3» 


BTST 

tlhPCJi, lAOf 

,is user contiollinp input 

disable^ 

Al 

6o34 





oOK i 

tOABesi 1 

.user IS controlliBp, eiit 


;iai 

a] jG 

w ft 7 a 


1 05 i* 


6 SR 

EnbRcvlD 

.enable recesie input 


c:a4 

4l:'. 



10-.4* 

I CAEttK 1 i 

RTS 






:tl( CRV DTACCH 7CIT 


P49t 20 






lOSi* 

. CONVR 

- UhlTVRITC 
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04SC 

0CO3 

0013 


1333* 


CNF 11 

IXOFF, D3 

iii it an ENQ* 

D440 

4408 



1331* 


BNE.5 

PDCLiiU 

, 10 . not a eontroi ckataelit 





1335* 









1334* 

; PROCESS a 

lorr thiticuc - i(t writ! tMf 






1337* 

j 




0441 

D8EE 

0000 

0013 

1330* 

FDCLioff 

ISET 

IBUST.UI, VB.riCUl(A4) 






1339* 





0448 

4283 



1310* 

FOCLdldlt 

CLR.L 

03 

;ihiw proeiiftd 

014A 

1E79 



1311* 

FDCliilt 

ITS 





file: DRV.OTACOK.TEIT 


tiqt 27 


1343* iPitChiBf -PVT A CHARAmR IKTO THE READ BUFFER AND RETURN -ADJUST COUIfrERSf POINTERS AS REQ 






1344* 


COHINC 

IK D7- CONTAINS STATUS WORD 

D3 CONTAINS CHARACTRER 






134S« 



AS POINTS TO UART 







1344I 










1347* 

i BUFFER HAS ENUF SPACE, JUST ADO CHARACTER 







1340* 

; 





I44C 

284E 

0034 


1349* 

PatChcBf 

HOVCA.L 

RB.nUP(A4), AO 

, iddtass whirl to pot ehirictir 


0470 

I0C3 



13S0* 


HOVE.B 

03, (AOU 

; AUTO ADJUST POINTER 


1472 

2048 

0034 


1331* 


NQVE.l 

AO, RB.F1UP(A4) 

, RESET THE FILL POINTER RBJILLF 






13S2* 

, 









13S3* 

i UpOiU 

bofUt fitubUt 







1334* 

, 





8474 

224E 

003C 


1333* 


NOVE.L 

R8.BADR(A4), A1 

ikl « ADDRESS OF SUFFER BEGIN 


047A 

D2EE 

0040 


1334* 


ADDA.V 

RB.812E(A41, A< 

;A1 > ADDRESS DF END OF BUFFER 


I47E 

B1C9 



1337* 


CHPA.L 

Al. AO 

;Is Rear pointing biyond boiler? 


0410 

4304 



1330* 


BLS.3 

PCBnowtp 

,No. don't do wrap aronnd 






1359* 

i 



iTii, fit Iron! ■ addr 1st byte of 

bolfir 

0412 

2D4E 

003C 

0034 

1340* 


NOVEL 

RS_BADR(A4), RB.FILLPU4I 

;SaTe the niw Rear pointer in ib_ 

mip 





1341* 

, 





0401 

334E 

G042 


1342* 

PCBflowrp 

SUBQ.V 

01. R6.FREE(A4t 

.SINCE VE pot in a CHAR, 1 LESS FREE SPACE 





1343* 










1344* 

i Ui if 

boflei if 

IgU (RBJREE is in ontignid 

word) 






1343* 

; 





04IC 

6404 



1344* 


BKE.S 

PCBnotU 

,not loll, fubtract tits or eliars 

ZERO bit 

040E 

8BEE 

0000 

0033 

1347* 


BSET 

IFULL.R2. RBJLC3«11A4) 

, BUFFER foil 






1340* 










1349* 

i baMff 

lor fttre it not captf 







1370* 

; 





0494 

08AE 

0001 

0033 

1371* 

PCSiotn 

BCLR 

ICNPT_R2, RBJLG24KA6) 

; RESET EMPTY FLAG ANVKOO 






1372* 










1373* 

; U pcotoeoit tRAbUO «nd NOT Line trpe protocol then chick baHir lor hi wetir lerk 





1374* 

i 





I49A 

082E 

0000 

0011 

1375* 


BTST 

IP«OT.Pl, BfJROFU#) 

, SEC IF AN! PROTOCOLS AT AU-CHEC* HI BIT 

04AO 

470A 



1374* 


Borr.s 

PCBtiit 

i No protocol enabled, eiit 


04A2 

002E 

OOOQ 

OOtl 

1377* 


BTST 

ItiD., BF.PROF.Hlt) 

, is it a Line protocol? 


04AI 

4402 



1376* 


BON.S 

FCB.lit 

, Yea, eiH 


04AA 

4102 



1379* 


B3R.S 

ChkR.flai, 

i cheek for ticiiri buty ettli 






1300* 

i 





04AC 

4E73 



1301* 

PCBciit 

RTS 
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1363* 

1384* 

1363* 

; ChkRciBffT - ehtek 

f«t c«c«it« besf 







1304* 

< ii 4iti 

o( biffci 

ROM it or itbfi hioti miIii 

lit! 


94AC 

322C 

0040 


1 al 1* 

1311* 

ChkIatBoff 

KOVE.W 

RB.SI2C(A4), 01 

.BUFFER SIZE (ADDRESS OF) 


04B1 

t34E 

0142 


1317* 


SUB.W 

ftl.rREt(A4). 01 

,Dl ■ BRftbit of chiti in boffii 


I4B4 

B24C 

004A 


1390* 


CKP.V 

RIJIVMAi), 01 

. it ot abOTi hi witcc tiikt 


04BA 

4402 



1391* 


ICC 3 

CoRciBaiy 

. Too, goto buiy itilo 


I48C 

4E73 



I391« 

CBBTiiit 

ITS 


,No. thin tilt 






l 4” 

1394* 

. ColcfBsiy - jotfl th« Rictirf bti<r lUU 







1393* 

1 If 

, iiieitt 


iff toctid «fl 



MB£ 

0IE£ 

0000 

0031 

14 71* 

1397* 

GeRcfBaif 

Bsn 

OBOST.Rl, RBJLCU1U4) 

.lit b049 Mitt 


04C4 

44IC 



1391* 


BON. 3 

CRBSciit 

i tltiK) kail 10 dial load «k<t. iin 

04C4 

0S2E 

0001 

0013 

1399* 


8T3T 

IXONIOrr. BFJROFtKAi) 

.stRd bfU to otkti fidt laying not 

buy 

Q4CC 

4704 



1 400* 


BOFF.3 

CRBSiiit 

.only it EOMfEOFf 


04CE 

7013 



1461< 


NOVEQ 

IZOFF, DO 

.find ZOFF 


04DO 

4100 

FtAO 


1402* 


ISR 

PntCtt 

.pot 10 coBuol cbai buiiti 


1404 

4C75 



1403* 

GRBSiiU 

RTS 


,i( ETZ/ACZ o( CHQiACX nothing ilie 

to do 



File. DRV DT&COH TEIT 


Pige 3f 






HOS* 

j PRIKIT > 

ptOCOii 

ItiisBission intercopl 






1404* 

, 

JflfI send the niit chouciit il possible 





1407* 

, 








MCI* 

, 

ENTRY : 

fAS) • UART Base address 






1407* 

i 


<A4) « address ol petTs data ares 





MIC* 

i 


(04) • onit ABiber 






1411* 

i ^ 


(D7) a status b|rte Iroi UART 






1412* 

, 




04D& 

D62E 

000 1 

00S7 

1413* 

PRIHIT 

BTST 

lEHPT.CB, CB.FLACSiKAi} 

icontrol char asailable 

04OC 

671E 



1414* 


BOFF.S 

PRXgetctf 

ijes, send it out Beit 





MIS* 









1414* 

i il NOT Suit oc Buffer not iipty fend oot niit 

character 





1417* 

, 




04DC 

0B2E 

0000 

OOIS 

Mil* 


BTST 

IBUSY.Vl, V6_FLCU1(A4) 

iBoer? 

04E4 

4iOC 



1417* 


60N.S 

PRXoff 

,yes, torn off iiit int 

MEi 

0B2E 

000 1 

0017 

142C* 


BTST 

•EHPT.V2, VB_FLC2tl(A4) 

, buffer eipty! 

04EC 

670A 



1421* 


BDFF.S 

PRtsend 

;NO, send neit chat 





1422* 









1423* 

i check lor 

AB Altornttc boflet efeilAble 






1424* 

, 




04EC 

4100 

007C 


142S* 


fiSR 

wChkAUBf 






1424* 









M27* 

; lorn oil 

lilt ints 






M28* 

; 




04F2 

4100 

FE4I 


1427* 

PRloff 

Bsn 

5TOPXK1T 


04F4 

4004 



1439* 


BRAS 

PRXeiit 






1431* 









1432* 

, got fioit 

ctutActoi io buffet end send oot 






1433* 

i 




04FI 

4110 



1434* 

PRXfond 

BSR.S 

SendHiit 


04Ffk 

4002 



1433* 


BMA.5 

PRXeiit 






1434* 









1437* 

; got neit 

control 

elutacter and send it out 






1431* 

; 




04FC 

4102 



M37* 

PRXgetotl 

BSR.S 

SendCti 






1440* 

; 




C4FC 

4E7S 



1441* 

PRXolit 

RTS 
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9500 4190 rCI2 
0504 1B43 9011 
0598 4E75 


SfndCU 


1443* 

1444* 

1445* 

1444* 

1 447* 

1448* 

1447* SindCt 
1450* 

1451* 


find niit control cbat«cltr !t«i cenlul ehmcter bo(i«c 
CKTRY . (*5) > DART Bai* addttii 

(A4) ■ addiait o( poft'f data am 
(04> s amt BUMbtf 

8SR GftCtl ,Gtt chai and updati pti 

MOVE.B D3, DRTRREC(AS) , PUSH CHARACTER OUT 

BT8 



Pigt 3i 


rui DRV OnCOK.TEIT 






1033* , S«ndNiit - Put n«it «hiuet«E in writt buifit 

in UART tcissilt buftr. 





1030* i 

EKTRY 

1A3) * HART But iddrisi 






loss* i 


(A4) « iddrtii oi poit'i d«U ttci 





lOSi* , 


(DO) ■ unit Ruibii 






1457* , 




030A 

mi 

OOlC 


10S8* SindNtit 

KOVC L 

UB_EMPTr<A4), AO 

;A0 O EMPTYING POSITION OF RD BUFFER 

OSOC 

IBSO 

0011 


lOSf* 

HOVE . S 

(AO)». DATARECUSl 

; find onl thi neit ehiucUt 

0311 

3D0I 

ootc 


1440* 

HOVE.L 

AO, VB_EHFTV(A4) 

;Stri the new Frant pointer in cb.eipt; 





1041* 








1041* ) Upditt 

bullir ffitublif 






1043* , 




03U 

224E 

0010 


1040* 

HOVE.L 

yS_BADR<A4), A1 

,A1 » ADDRESS OF SUFFER BEGIN 

05U 

02CE 

0010 


1043* 

ADOA.y 

VB_SI2C(A4), A1 

;A1 > ADDRESS OF END OF BUFFER 

I51E 

B1C9 



1444* 

CKPA.L 

Al. AO 

jli Front pointing beyond bnifer* 

0320 

4304 



1047* 

BL&.a 

SNXnowrp 

iNo, don't do vttp etoond 





1440* i 



;?is, get iront * tddr lit byte of ballet 

0522 

1D4E 

0030 

ootc 

1449* 

HOVEL 

WB.BADIlAd), WB_EKFTy(A4 

iSivt tbe new Front pointer in wb.fipty 





1470* i 




0321 

324E 

0034 


1471* SNlsowcp 

ADOQ.V 

11, Vfl.FREE(A4) 

;5INCE WE GOT CHAR, ONE MORE FREE SPACE 

032C 

0I4E 

0000 

0017 

1472* 

BCU 

tFULL.Vl, U6JLC2«llA4) 

iilwiys not lull 





1473* 








1474* , f«i tf 

bulfit if 

igpty 






147S* i 




isn 

322C 

0014 


1474* 

KOVE.V 

VB.fR£C(A4}, D1 


0S3i 

B24E 

0030 


1477* 

CKF.V 

WB_S1ZE{A4},.D1 

i 1 OF FREE LOCATIONS - BUFFER SIZE 

0S3A 

4304 



1470* 

BC&.S 

SKlBotit 

i not empty il Iree < sin 

033C 

4220 



1479* 

BHl.S 

SNXsiftir 

; sill error *fiUC tf heppins* (Ires > site) 





1480* 




ISlt 

OBCE 

0001 

0017 

1481* 

flSET 

•EHPT_V2, Wa„FLC2fl(A4) 

i SUFFER eipty/lBtn off int neit oecarince i 

0300 

4124 



1482* 

B8R.S 

VCMAltat 

, lie if ibonid ivitek to en Altirnite baffe 





1483* 








MM< i H PcoUeoli tnibltii ind ilthii EKa/«CI er ETIftCt thin obiok 





1483* i i 

(kooU land in EHO ti ETI 










1304 

OICC 

0012 


1087* SNUfitgt 

LEA 

BF_PROF(A4), AO 


0304 

MU 

MOO 


1081* 

IT3T 

•PROTJl, <A0)4 

dProtoeol iBiblidt 

050C 

471A 



1019* 

BOFf.S 

SNXiilt 

iBO, Hit 

1330 

out 

loot 


1090* 

BTST 

8ENOACE, (AO) 

;EKQ/ACR protoooM 

0330 

4404 



1091* 

aoN.s 

SNXoDt 

iyei, see if fboald send in ENQ 

0334 

0010 

0M7 


1093* 

BTST 

lETXACX, (AO) 

;CTX/ACK protocol* 

1334 

47QC 



1093* 

BOFF.S 

SHXmH 

;no, eiltt 

033C 

4031 



1090* SNlcat 

BRAS 

CbICMii 

; cheek if tin to find ENQ or ITX 





1095* 








1094* i Sill itror - iit 

Cfcii (Ug tsd iplit 






1097* ; 




IS3C 

MCE 

0011 

0013 

1098* SNliiict 

I8CT 

lERRjri, VB.FLCUKAd) 

ifhow file error 

1340 

MEE 

«M1 

0017 

1099* 

B3ET 

iEHPT.VZ, VBJlCUHAi) 

urk BUFFER iipty 

0344 

0173 



1300* SNIiiM 

STS 
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Pifi 31 





1302* 








1303* 

VChkAltBf - chtek 

It ilticBiti bottle iwitib on Mtito boftic 




1306* 

Xait inpit is 

intoiitieillF disiblnd wbtn 

ifir calls aniistitis 




ISOS* 

to stfileii bafliif. 






1304* 








1307* 

Eattf A4 • 

iddrtsi ftt dnti 

irii 





1608* 

iitirisol* diitkisd 






1307* 





esic 

oaiE 

0001 0017 

1310* VChkAHBl BTST 

IEKPT.V2, VSJtC24l(A41 

IS bnttii niotf! 

«571 

4710 


1511* 

BOFF.B 

wCABislt 


,nn, can't switch 

OS71 

65CE 

0015 

1312* 

LEA 

WB.fLCUUAd), A2 


,A2 ■ addiisf ol wciti baffle flags 1 

0S7I 

0871 

0062 

1313* 

BCU 

lALTBF.Vi. (A2) 


jis an aliieniti boftii iiaiUblil 

037C 

6716 


1316* 

BOFF.B 

wCABtiit 


.no, nolbing to switch 




1315* 








1314* 

SwUcb boffin bf 

liking Iht Altnrniii bnttir 

thi lain battle 




1517* 





Q57C 

204E 

0021 

1311* 

HOVE.L 

WB.ABADRfA4). AO 


;gil new bnttie addeiii 

D5S1 

301E 

002C 

1517* 

MOVE.W 

VR.A&lZEtAd), 00 


,and length 

0514 

4100 

0646 

1310* 

SBR 

SitupWI 


inwilch bnftie in tabii (doiint nsi 




1521* 








1322* 

if ofif is HOT oosttilliDg tbi litt ifiost 

disibln bit then inibli 




1323* 





058X 

0813 

0107 

1326* 

ITST 

IIKPC.VI. (A2) 


ill nine eonteolling inpot diiablit 

0311 

4406 


1323* 

BOH.S 

wCABiitt 


:nnnr is eonteolling, nil 

0376 

0872 

0003 

1324* 

ICLR 

IlHPE^t, (A21 


;no, tnabli inpnt to baftie trot nii 




1527* 





0576 

6C73 


1321* «C8B«iit HTB 
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IS30* 

1331* 

1332* 

1333* 

1334* 

1333* 

1536* 

153?* 


CntChiti - «e if i«&t cnDugb cturictiri to find ovt tn ENQ or ETZ 

Entcf : ki B iddriff of poit'i diti irii 

(ASl - UART Bill iddriii 
<D4) « unit naibir 

Protoooi if lithir EMQ/ACK or ETI/ACK 


0S?6 

S26E 

002E 


1538* CntChiri 

ADOQ.V 

II, WBJENQ(A6) 

iidd 1 to ehir coinl bitwiin ctl obits 

05?A 

3Q2E 

OQOE 


1539* 

KDVE.U 

6F_BTVMEA(A6), DO 

; 0 it 111 illowid bitMiin 

OSfE 

BOiE 

002E 


1340* 

CHP.V 

Ufl_BENQ(A61, OO 

idid Sind 111* 

03A2 

431A 



1541* 

BKl.S 

CNTilit 

;no, tbiB Hit 





1542* 








1543* i lit 111 

obits bitwiiii list EMQ or ETX, find 

inelbit ind go bosy tintil rioiifi ACK 





1544* , - 




0SA4 

7005 



1343* 

KQVEQ 

lENO, DO 

iiisuii Sind in ENQ 

fiSAi 

0I2E 

0002 

0013 

1546* 

BT8T 

lENQACK, BF.PROFiKAi) 

;ENQ/ACR protocol* 

OSAC 

6602 



1347* 

BOH.S 

CKTinq 

if«* 

I5AE 

7003 



1548* 

mm 

lETl, DO 

ill ETX/ACK ptoliool, Sind in ETX 

ISBO 

6100 

FDCO 


1349* CKTini) 

m 

PatCtl 

;pQt ohir in eontiel ibir boffic 

0384 

426E 

002E 


1550* 

CLR.W 

V8_BENQ(A6) 

ioiiir in bitwiin coBBt 

0388 

06EC 

0000 

0013 

1531* 

Bsn 

iflUSP.Vl, VB_FLCU1(A6) 

igo wtiti bosy 

OSBE 

4E75 



1552* CKTitit 

RTS 





rui; ORV.DTACOH.T£XT 


P««t 34 


1S54* 

1333< 

1SS(* 

1337* 

1358* 

iS5f* 

1380* 

I3il* 

1382 « 

13(3* 

13(4* 

ISiS* 


OCTLINT - Dit4 Coi Centiol litirtapt icttic* [oaUnt. 

Kakis chick for both Potto. 

Cilli the tealiai it iddtcii oitod is SETVECS rootiso dating initili. 
Asiuici it irUl cltit the intitrspt, toggle 101. The Iiit roullic in the 
chain chcold be the OS Utel i contlni which dote loin oit the inteitopt. 

Ignarii the iitirtopt it wiee’t e DitiCoi Contiol interrnpt, 
thetefoie u Apple fiot intettopl, ec it HOT Lise type 
hindihike iithod. 


OSCI 

48E7 

FPFE 

13(8* OCTLIKT 

HOVEM.L 

00-A(.-(SP) 

iim REGISTERS 

05C1 

4DFA 

44(8i 

13(7* 

LEA 

PoitODite, A( 

ide lot Port 6 Urn 

03C8 

383A 

091Ef 

13(8* 

KOVE.V 

UnitfO, D4 

ionit BOiber of Port 0 

05CC 

U14 


13(7* 

fiSR.S 

Chklioee 


OSCE 

4DFA 

QtBAt 

1370* 

LEA 

PoctiOati, A( 

ide tor Port 1 first 

0302 

383A 

09Ut 

1371* 

HOVE.y 

UnitPt, 04 

«osit DDiber ot Port . i 

0SD( 

UDA 


1372* 

BSR.S 

Chklioee 





1573* 







1374* i eiit by teitering 

cegifteci ud then geieg 

to leotifli it saved iddteii 




1373* i 




0308 

4C0F 

7FFF 

157(* 

HOVEK.L 

(SP1«.D0-A( 

.ElIT-BESTORE REGISTERS 

03DC 

2F3A 

OfOE* 

1577* 

KOVE.L 

SiTiLfU, -(SP) 

.take iBtirrapi start 

03E0 

4E7S 


1371* 

ITS 





Ftgt 3S 


Flit: 


iiU 


9SCI 

QSCC 


osri 

0)F< 


«9ri 


ISFA 

ftSFt 

Itot 

OiOl 

1401 

049C 


liU 

MU 

MU 


MIC 

4410 


OlV.DTKOn.TUT 





uoo« 







tsil» 

ChkLi&tt - lit if cMsg« in lints for Iht poiUtptciiitd by A4 tnd 04 




1S02« 







1SB3* 

Entry : 04 « 

onit naibtr for tht currtnl 

port 




1SM« 

A4 > 

tddtttt of data art! for Ibt 

currant port 




19ISO 




41M 



1S04« ChkLutt CIR L 

D4 

;for disabling inttrrupts 

4U9 

FB20 


1M7* 

BSR 

GETBA&C 

;attup DART bast rig (AS) *2/7/83* 




1308* 







U87* 

Stt if tif protocolt tl III tid if to if toy 

art line prots 




uoo* 




092E 

0000 

0012 

1371* 

BIST 

•PHOT.Pl, BF_PROFtA4) 


4730 



1573* 

lOFFS 

CLHciit 

iNO PR0T0C0L5-GET OUT 




1593* 







1574* 

If (type of bandthtkt (> Untl thtn tilt 





1595* 




OllE 

oooo 

0013 

1394* 

BIST 

HIKE, BF.FROF«l{A4) 


4720 



1597* 

IOFF.3 

CLNiiit 

,NOT LINE HANDSHAKE, EXIT 




1398* 







1397* 

Dtittain* which Lint it oitd ti Boty lint Port 

A 




1400* 




4120 



1401* 

BSR.S 

FINDLIM 

iNEEOS D4 = Unit aomber of eorrint 




1402* 



ircturns bit nuaber to cbtok in DS 




1403* 







1404* 

ttt or citu Boty doptading on ittlo of lint and wbtther iff Boty infttlid or not 




1403* 




141C 

OOM 


1404* 

KOVE.S 

WBJLCUltA4), D3 

,3AVE BUS! FLAG 

4100 

FJl74 


1407* 

B5B 

OISINTS 

;D1SABLE INT5 

oocs 

0000 

0013 

1408* 

BSET 

•BUSTJfl, HB.FLCUKAil 

,A5ailHE LINE IS BUST == TRUE 

4134 



1407* 

BSR S 

T5TLINE 

JEST LINE t INVERTED FLAG (clobbt 

4410 



1410* 

6NE.5 

CLNtnbl 

,1S BUS! 

OIAC 

0000 

OOlS 

1411* 

acLR 

•BUST.Wl, VBJLClii(A4) 

,net buoy 




1411* 







1413* 

if wain't Sisy btfort thtn ititt up tciniiistiOR ptoctss 




1414* 




0603 

0000 


1413* 

BTST 

iaU3I_Vl,D3 

JEST SAVED BUSY STATE 

4700 



UU* 

soFf a 

CLNeabl 

iVASN-T BUSY 

4100 

F03C 


1417* 

SSH 

STHTIHIT 

i START XHIT IF BUFFER HOT EHPTY 




1418* 







1417* 

taabfi inltttuptf 






1420* 




4100 

FAfC 


U3|> ClKtolll BSIl 

ENBIITTS 





1431* 




4C79 



1423* CLMtsit RTS 





rui: DRV.DTKOfl.TCIT 


P49« U 


flbin^fd iiictlOB to ntom uioi in 09 *1>12-I9 kb* 

FINDLIN - Find which lint it stt< (or Kondihtling in Foci i 
CNTIY . (04) > sti( naibir 

It 4 lint i|pt btotoeol . 






1430* 

1 it ft 

' 

HIT : 

(D9I * Bit 1 

in Fttl A »ptci(ying Itni oetd (or Biif 

fli32 

7AD1 



1 c« l * 
1432* 

FINDLIN 

HOVEQ 

11,09 

.BIT KUNBER IN PORT A CORRESPONDING TO 

0424 

7203 



1433* 

1 i ii • 


nOVEQ 

ICTSLIH.Dl 

.FLAG BIT NimSER 





144t* 

1439* 

1 i tit 

, Atiuitf 

that it wilt iiwaft find a lint (lag ttt 

9414 

oaic 

0013 


It J4* 

1437* 

FLKLOQK 

rsT 

01, flr_FRQF«liA4) .15 BIT ttV *1'12‘B3 kb* 

042A 

4404 



1431* 


IONS 

FLNCOT 

.YES, 03 PORT A BIT FOR DC 0 

I42C 

9409 



1439* 


40D0.8 

12,09 


943C 

9301 



1440* 


4DOQ.B 

11,01 

.TRY NEXT BIT FLAG 

0430 

ocei 

0004 


1441* 


CNPI.B 

IDCOLtN*!, 

DI ,010 LAST FLAG 

0434 

44F0 



1442* 

Wilt 


8NE.S 

FLNLOOK 

,NO 





1 1 1 j * 

1444* 

t iita 

, [1 (Fet 

1 11 anit ngibtr) Ihta 

bitl .« bitO * 1 - DC 1 bit! in Poit A act niit bit. dp 

1434 

1174 

0110* 


1 Its* 
1444* 

FLNCQT 

CHP.V 

t/nitPO, 04 

,it It Fort 0* 

0434 

4702 



1447* 


IE0.3 

FLNEtlT 

iftS, tOtD tilt 

I43C 

S20S 



1441* 


4QDQ.B 

01,09 

,BC, then Port 1 and add 1 to bit naabtr 

043C 

4E79 



144f* 

iitit 

FLNEXIT 

RTS 







I43t* 

1491* 

. chtngtd (iictiofl 

to tactirt bit 

neibtt paraitttr in DS *1-12-03 kb* 





1492* 

, T1TL1N2 

- (tit Pert 4 lint iced 

(or laif and thi infirttd flag to show i( 





1493* 


liif er 

NOT Bflir 






U94* 


ENTRY . 

<09) « bit nuibtr ii Port 4 oi lint and by Boty 





1459* 


E2IT 

(HE) t Boff - 

02 • IFF 





1494* 

< 


(EQ) « NOT Bsif - 02 > $00 

0440 

OI3f 

0003 

0f7F 

1497* 

1496* 

i 

TSniKC 

BT5T 

OS. KKII4. 

L .Criati LUi fiooltan 

0444 

94C1 



U9f* 


9NE 

01 


0441 

0131 

0004 

0013 

1440* 


ITST 

lINVBtlSr, 

Bf_PROP*HA4) .Crtatt Infttttd Boolian 

044C 

94C3 



1441* 


5NC 

02 


0490 

1302 



1442* 


EOR 6 

01,02 

,1F RESULT IS (FF THEN BUST 

0493 

4279 



1 443* 


RTS 





fiU: DRV. DTACOK. TEXT 
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U6S* 

iiii* 

16A7* 

UiS* 


COKCLR - UNITCIEAR 

laitiAlifft BoKetc to iiptf. Initi^liio Coaiunications conttoi 
tatiablos. Initialiti DART troi Ptialir Control Tabli. 


Q4S4 

6100 

FA40 

1669* COHCIR 

BSR 

OISIKTS 

.DISABLE IKTCRRl/PTS 

OiSI 

6100 

FAIA 

1670* 

BSR 

SETUART 

,1N1T HART FROM CONSTANTS 8 TABLE 

04SC 

6108 


1671* 

BSR.S 

Initfiofe 

iinitlaiite read and write buffers 

OiSE 

6138 


1672* 

BSR.S 

Cltfinsy 

iclear busy flags 

0640 

6100 

FA3A 

1673* 

BSR 

CNB1HT3 

.ENABLE INTERRUPTS 

0664 

4E7S 


1674* 

RTS 




U7St 

U71« 

U77* 

U78* 

U79« 

168A« 


Sols - iBitialico toad, write and conttoi balfero to iBptr 

enable out and ta bound on both buffets, reiove alt buffets 
Ciit ; (00) « old bssy flag for read buffet 
(Dl) » old boig flag for write buffer 


0666 

206E 

003C 

0034 

1681* InitBufs 

NOVE.L 

RBJADR(A6), RBJILLP(A6) 

inltiaiiie front and 

066C 

1D6E 

003C 

0034 

1682* 

KOVE.L 

R8_BApi(A6), RB_EKFT¥(A6) 

rear pointers 

0671 

306E 

0040 

0041 

1683* 

HOVE.V 

RSJIZE(A6}, RBJREE(A6} 

show count as all free 

0671 

426E 

0032 


1604* 

CLR.W 

RS_FLC2(A6) 

reset AotoLf, send LF, Full and 

067C 

D8EE 

000 1 

0033 

1685* 

BSET 

ICNPTJ2, R8_rLGl»l(A6) 

BUFFER IS EHPTf 

0611 

302E 

0030 


1686* 

KOVE.U 

R6_FLCI(A6), DO 

GET old busy flag 

4616 

426E 

0030 


1687* 

1688* 

CLR.W 

RB_fLCl(A6) 

reset all flags 

068A 

2D6E 

0020 

0018 

1689* 

KOVE.L 

WB.BADR(A6), WBJILLP(A6) 

initialiii front and 

0690 

106E 

4010 

OOlC 

1690* 

HQVE.L 

U8_8ADR(A6). WB_EHFT¥(A6) 

rear pointers 

0696 

306E 

0014 

0026 

1691* 

HOVE.V 

WSJIZE(A6}, VB_FREE(A6) 

show count as all free 

069C 

42 6E 

0016 


1692* 

CLR.W 

V8_fLC2(A6) 

reset send LP, Full and Lost 

06AO 

OOEE 

0004 

0017 

1693* 

BSET 

IAULF_V2, WB_FLC2*1(A6) 

DO AUTO IF and *kb WSf83* 

06A6 

OSCE 

0041 

0017 

1694* 

BSET 

IEMPT_V2, yB.FLC2tl(A6) 

BUFFER IS EHPTJ 

G6AC 

321C 

OOM 


1693* 

KOVE.W 

VB,ftCKA6). Dl 

GET old busy flag 

0690 

416E 

0414 


1696* 

1697* 

CIR.V 

WB_nCl(A6) 

reset all flage 

06B4 

6000 

FACE 


1698* 

BRA 

INITCTIB 

init ctl char buffer 


U99* 

17fl0» 

1 ? 01 < 

1703* 

1703* 

1704* 

1705* 


ClcBusf - if lead buffet was busy then send out NOT buig state 
ignore write busf for now 

Entrf : (00) * old bnsf flag for read buffer 
<D1) B old boff flag for write buffet 


04 Bl 

0800 

0000 

1704* ClrBusy 

BTST 

IBUSY.Il. DO 

068C 

6704 


1707* 

BOFF.S 

CBSeiit 

46BC 

6100 

FBB2 

1708* 

BSR 

CoUnBusy 

06C2 

4E79 


1709* CBSeiit 

RTS 



;aar baei to check if hare 
;gro(ocols and not line tgpe 


eipty 



Filt; DRV.DTiCON.TEIT 


Pi|t 31 






I71l« 

, 







1712* 

. COH8ST - UHITB(/ST 







1713* 

i PASCAL BOOLEAN TlUC BETOBNED IN 00 

IF THERE ABE ANY CHARACTERS IK READ BUFFER 





1714* 

i 



01C1 




1715* 

COKB5T 



06C1 

08U 

000 1 

0033 

1714* 

BTST 

0EKPT_I2, SBJIG2*1(A4> 


HZk 

S7C0 



1717* 

SEQ 

DO 

,IF BIT NOT SET THEN « 0, CHARACTRERS EII3T 

04CC 

0200 

0011 


1710* 

ANDl.l 

ITBtfE,DI 

.CONVERT FSOH BOOLEAN TO PASCAL 800LEAN- 

Otoe 

4C75 



1719* 

ITS 







1720* 

, 







1731* 

, COHUHKT - VKITUWIOKHT 






1722* 

; To(ic({ 

Utinspt eipibilUiif e( 

COKK BMrii. 





1 723* 

i ilfftoc* 

fietert. 






1724* 

< 



0iD2 

6t00 

F7C2 


1723* 

COTUfNKT 6SR 

DISIK7S 

.DISABLE INTERRUPTS 





1724* 

, 



HQi 

4100 

FA3B 


1727* 

B3R 

GCTBASE 

iCET UAIT BASE 

O^DA 

1B7C 

0002 

0003 

172B* 

HOVE . B 

rrUBHOFr.CMDUCKAS) 

.TURNOFF BART 





1729* 

, 







1730* 

. hiTi iffctori polit 

U 1 RTE iifUictiei 






1731* 




li£0 

41F6 

0070 


1732* 

LEA 

VEC4.V. AB 

.liieii it if fort 1 

0iE4 

43FI 

004B 


1733* 

LEA 

VEC2.V, At 


04CI 

4SFA 

OOlAf 


1734* 

LEA 

TMEBTE, A2 

iiOddfi •( tki RTE tiituetief 

OlEC 

6I7A 

07FA* 


1735* 

CMP.W 

UbUM. D4 

ill ft flit Ot 

06Ffl 

4702 



1734* 

lEO 8 

CONdPO 

ifiii chuBi livil 4 

04F2 

C34I 



1737* 

EXG 

Al. At 

ill. ekiifi IimI 2 

uu 

108A 



173B* 

CUNiiPO HOVEL 

A2, fAB) 

ilit fictii li pciftt At RTE 





1739* 

i 







1740* 

■, if Both viettri BTE tk«i fit livtl 

1 ti ftfiB iBBdif 





1741* 

; 



04F4 

B3BI 



1742* 

CHPH.L 

(Al)t, (At)« 

.lift Be foit lie. 

04FI 

4404 



1743* 

IKES 

CVHBili 

iBiftidit le let both RTE 

OiFA 

31FA 

07FOi 

0044 

1744* 

HOVE . L 

SifiLvlt. VICl.V 

iriftete (lu iamB aiia 





1745* 








1744* 

I lifted liiemptf 







1747* 




0706 

4000 

FtIA 


1741* 

CUHdiff ISA 

ENIIKTB 






1749* 








1750* 

, THE ITE INtnUCTION 






1751* 

; 



0704 

4C73 



1752* 

TMCITI ITS 





hli: DIV.DTtCOH.TElT 


Pigi 3t 





1734' 








173S< 

consT - 

VKITST4THS 






1731* 

till )ki TtkU ektiyi or bullti ftii Etmclioni 





1737* 





•714 

•C41 

••14 

173)> COHST 

CHFI V 

•TBISTATE.DI 

VALID FUNCTION CODE 

•?•• 

4110 


173f« 


8X1 .S 

CSTERB 

NO 

•74C 

3013 


1710* 


novE.v 

(AS), DO 

GET PARAMETER 

170t 

4374 

• •lit 

1741' 


lEk 

CSnBl.Al 

TURN THE FUNCTION CODE INTO 

•7t3 

C344 


174)> 


lll.v 

•1,01 

AN INDEI TO THE FUNCTION 

•7M 

34)1 

!••• 

1743* 


HOVE W 

•(A1,0).V),D3 


•711 

4171 

!••• 

1744> 


JHF 

0(A1,D1.V) ;DO FUNCTION 




1743* 








1714' 

tRt4ll4 

Futtloa Coda Etror 





1717* 





•71C 

7E3) 


174)' CSTEII 

KOVEO 

I1HVFHC,D7 


•7IC 

4t7S 


1741* 


RtS 






1770* 








1771* 

THE COM 

DXITEX STATUS JUHP T4BIE 





1771* 








1773* 

linctioaf «taM41kta with oil ptinltr Oiific 





1774* 





•714 

OOIE 


177S< csniL 

04T4.V 

STVBUF-C8TTBL 

WRITE BUFFER FREE SPACE 

0711 

••40 


1774« 


0AT4.V 

STB4UD-CSTTBI 

SET BAUD RATE 

1714 

•03) 


1777« 


DAT4.V 

STPRITT-CSTFBl 

SET PARIT7 

• 711 

••)• 


177)< 


DATA.lf 

STRBUF-CSTTBL 

READ BUFFER FREE SPACE 

1711 

• •40 


1777* 


D4T4.V 

STVROSZ-CSnOL 

SET WORD SIZE 

•m 

••7E 


17))« 


04T4.V 

STHNDSR-CSnBL 

SET HANDSKARE METHOD 

•71C 

• 144 


17)1> 


D4T4.V 

STBFST3-CSTTBL 

TELL BUFFER CONTROL STATUS 




17)1> 








17U« 

aaw (aaetitat 






1744« 





•71t 

• 003 


1713* 


04TA.V 

STROSTS-CSHBl 

TELL READ STATUS 

•71« 

• 111 


1714* 


04T4.V 

STWTSTS-CBnBL 

TELL VIITE STATUS 

1711 

•on 


1747* 


04TA.V 

STRDHI-CSTTBl 

SET READ BUFFER HI WATER HARK 

•7)4 

•tIE 


17M< 


04T4.V 

STRDlO-CSnBl 

SET READ BUFFER LOW WATER NARK 

•7)4 

• IH 


I7)7‘ 


D4T4.V 

STOUTRD-CSTTBl 

TOGGLE OUTBOUND READ 

• 731 

• 1C) 


1774* 


04TA.V 

STINRD-CSnBl 

TOGGLE INBOUND READ 

•734 

• 104 


1771» 


04T4.V 

STOUTVF-CSTTBl 

TOGGLE OUTBOUND WRITE 

•73C 

• 171 


1771« 


84T4.V 

BTINVT-CSnBl 

TOGGLE INBOUND WRITE 

•731 

0131 


1773‘ 


D4TA.V 

BVBCHR-CSnBl 

TELL 4CHARS IN WRITE BUFFER 

•74) 

• 13E 


1774* 


DAT4.V 

BRBCHR-CSTTBl 

TELL (CHARS IN READ BUFFER 

•741 

0tC4 


1775* 


D4T4.V 

STATOIF-CSTTBI 

TOGGLE lato LiatFitd flip 

• 744 

OOCC 


1774« 


DAT4.V 

STBENQ-CSHBl 

SET noiber of chtii btlwoto ENO's 

1744 

• 144 


1777* 


D4TA.V 

STRDAlTBF-CSnBl 

SET Retd Altiraiti bsdii 

0741 

•173 


177«* 


DAT4.V 

STVrAlTBr-CSTTBL 

SET Viilt Aileintli boffiieii ENQ'i 



rill DRV DTtCOH.TCIT 


Fift 4t 


I7U 

4444 

F744 

14047 

STCillDli 

ORA 

DISIKTS 


; DISABLE llFrERRUFTS 




14017 









14027 

; STVlUr 

Ritiia tc 

thi oiti tlo Fcot iptct 

in 

tho vritt bailor 




14037 






1741 

41F4 


14047 

sTvour 

OSR S 

STCtllOit 


i DISABLE IirrERRUFTS 

t7SI 

344E 

4424 

14037 


NOVE.W 

WB_FREE(A4), (A3) 


iWRITE BUFFER FREE SPACE 

1734 

4040 

F744 

14047 

STCtllEnO 

BOA 

ENBiirrs 


; ENABLE INTERRUPTS 




14077 

i 








14047 

, STROUF 

- Itlicn to 

tbo dfor thi Ftto opiet 

U 

tbo READ balloi 




14077 

, 





4731 

41F0 


lllO* 

STROUF 

BSR.S 

STCollOii 


;OISABlE HFFERRUPTS 

07St 

344E 

4442 

nil* 


NOVE.W 

R8_FREE(A4). (A3) 


iWRITE BUFFER FREE SPACE 

I73E 

40F4 


14127 


ORA S 

STCillEsO 


; ENABLE INTERRUPTS 




14137 









14147 

, STOAUD 

Sot tOo Olid Rite 






11137 






4744 

4C40 

4444 

11147 

3T01UD 

CHPl V 

(HAIBAU0.04 


;IS IT A VALID FARANETER 

47(4 

4334 


14177 


BKl.S 

SETERR 


;NO 




11117 

, 





47(( 

41EE 

0040 

111?7 


LEA 

BFJDBD(A4). AO 


.WHERE TO PUT VALUE 

47it 

43F4 

mu 

14207 


LEA 

BAUDCKV.AI 


.CONVERSION ARRAT 

47(t 

401E 


11217 


BRA S 

SAVFARK 


iSAVE CONVERTED FARANETER 




1(217 

, 








11237 

i STFRIT! 

- Set tko 

Ficitp 






1(247 

; 





4774 

0C40 

4444 

14237 

STPOlTt 

CHFl.W 

(HAIFRTI.OO 


,IS IT A VALID FARANETER 

4774 

4224 


1(247 


BKl.S 

. SHERR 


,NO 




1(177 

, 





4774 

4IEE 

044C 

1(2(7 


LEA 

BF_FART(A4), AO 


.WHERE TO PUT VALVE 

4774 

43F4 

4243« 

1427* 


LEA 

PRTtCHV.Al 


.CONVERSION ARRAT 

4771 

400E 


1(3(7 


BRAS 

SAVPARH 


.SAVE CONVERTED PARAHETEB 




1(317 

, 








1(327 

, STVROSZ 

- Sot tbi 

void siio to tiidiait (7 

ot 

4) 




1(337 

, 





4744 

0C40 

0441 

14347 

STVIDSZ 

CHFl.W 

(HAIWROS.DO 


i IS IT A VALID FARANETER 

4744 

4214 


1(337 


BKl.S 

SETERR 


;NO 




1(347 

, 





4744 

4IEE 

044D 

1(377 


LEA 

BF.WRDS(A4), AO 


;WHERE TO PVT VALUE 

4744 

1044 


1(3(7 


NOVE . B 

DO, (AO) 


.PUT IN WORD SIZE VALVE 

474C 

4004 


14377 


BRA S 

RSTVART 


.RESET VAST FROH TABLE 




1(4(7 

, 








14417 

1 ctuoo 

code to STOAUDR, STFRITI, STWRDSZ, 

STOTACOH, E STHNDSR 




1(427 

, 





474C 

1001 

0040 

1(43< 

SRVFAim 

HOVER 

0(AI,D0.W),(A0) 


.SAVE CONVERTED FARANETER 




1(447 

, 





4771 

4104 


1(437 

RSTVART 

BSR S 

STCollOii 


.DISABLE INTERRUPTS 

4774 

4100 

F74E 

1(447 

RSTVARTl 

OSR 

SETVART 


: SETUP VART FR(H4 TABLE 

4774 

4004 


1(477 


ORA 5 

STCillEat 


i ENABLE INTERRUPTS 




1(4(7 









1(477 

, litilid 

Ficiiitcc 

tiioi 






1(3(7 






4774 

7E34 


1(317 

SETERR 

HOVEQ 

(INVFRH.DF 



477C 

4E7S 


1(327 


RTI 






Fitt. DRV.OTACOH.TdT 
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IIS4* ; 








IASS' ; STKNOSK 

- Ill HiaAiktki trpi. Coifiit pitiMlit UU thi lUpi inA pit thin 





IASI' i 

ilip itliii Into thi FiUtit Ccnttil 

Tabli. Doa't biiA to tint 





l<37< ; 

»AIT. . 







USA* ; 




i?n 




USA' STHNDU 




I7U 

(C4C 

A«7 


IIIA' 

CKPI.W 

AHAIHNDS.OA 

MS IT A VALID FARAMETER 

tiu 

tin 



llil* 

IHI.S 

8ETERR 

;N0 





3A43' i 




07A4 

43FA 

A17U 


1143* 

KA 

HHDSCNV.Al 

iCONVERSIOK ARRAT 

07AI 

1D71 

AAAA 

AIll 

IA44' 

KOVE.I 

A(At,DI.V), BFJR0Ftl(A4l 

jBOfi nw ilips liti till bfti 





II4S' 








1144' i ill It 

nil AliiMiA 

all pr'itKili 






1147' i 




I7AF 

AIK 

«« 

AAll 

1144' 

HIT 

IFR0T_F3, ir_FR0FIA4) 

lanni ban a pcitoool 

<714 

4A» 

AAll 


1147* 

TIT.I 

Br_FR0F«l(A4) 

;IF 1110 tbio no piotocoli- 

I7BI 




IA7A' 

INE.S 

SHDobkEA 

jill If ETIIACR It EKQ/ACR 

<7U 

«AE 

AAAA 

lAM 

IA71> 

ICll 

AFROT_F3, BF.FROFIAO 

,'ihow no piotocol 

47CI 

4014 



l<73' 

IIA.S 

SHDliit 






IA73' 








1474' ; 








1I7S* i 




I7CI 

AIK 

AAA7 

AA13 

1174' SHDekkCA 

ITST 

AETRACK, IF_FR0Ftl(A4) 

;is it ETIfACR* 

•7Ci 

44AI 



1477' 

lOH.S 

SHDilta 

;|ii, nto ebai coiat 

47CA 

AIK 

AAAI 

AAI3 

1171' 

BIST 

AEHQACR, IFJROFfUAO 

Mi it EKQIACR* 

07DI 

47A4 



117?' 

lOFF.S 

SHDilIt 

ino, nit 

17 D> 

42K 

AAK 


lAIA' SHDiifo 

CII.V 

WI_BEMQ(A4) 

;elt cnt of chan bitNiia ENQ'i ot ETI'i 





lilt' ; 




<7D4 

4E7A 



1113' SHDiilt 

RTS 





rill: SkV.DTUOH.TEIT 


rift 41 


I7BI 1D13 t04A 
I7DC »7S 


l7Bt 3BSS l(4C 
•7tl 4173 


»7t4 Hit IM4 till 
1711 4173 


me 3B33 lilt 
I7tl 4173 


•4* 

13* 

li» 

37* 

II* 

17* 

71* 

71* 

73* 

73* 

74* 

73* 

74* 

77* 

71* 

77* 

II* 

II* 

'll* 

111 * 


i STUM I 
STlBMt 

;STU10 

ITIBIO 

i STSTir 
STSTBir 

i STiim 
STiim 


-SIT TMi USB nrrti mi cm vmi luit 
Kovi.v <u), n_Mivi(st) 

ITS 

-SCT TMI USB ivrrtl UN VSTU HSU 

mvt .v (S3), ii_iovs(Si) 

ITS 

• tllftl Ul Sill lisifttS till 

ICHC ISVir.VS, VIJlCtiKSi) ;ltl| III III 
ITS 

- lit Ul anlii It ikici lilwiii EHO'i ir ITI'i 

mvt.v (S3), ir.nwtsisi) 

ITS 



titt: DHV.BTtCOH.TEIT 


tut <3 


STRDST8 - CCT THE lEED BUEFER STRTUS 
F>uaitiillg«t • [icorB 

BufltiSiii : istitti; 

FiltBpget : 

KiWitir : latigtii 

loMVitii : inttgtr; 

InpntDlstklid : bgtd Urn • t, iilit • t) 

OnlgitDlitblid : bftii Urge « t, Itlli • 0) 

IbilDili ; bflii Urgi > t, (tisi > 0) 

tnigUirMtil : bitbi (tm >1, iglft • 0) 

RUBgf(ttlddc (blnllti (0 il RU8g((giAfgil Itlit) 
AltBgflitSlli ; inligtci (( it RltBgflirlrtU iitit) 
ind; 


dFFI 

3CEE 

CC4C 


I717> 3TBDSTS 

HOVE.V 

RB_SIZE(A4), (All* 

;gtl bgtfic lift 

07Fi 

3iEE 

ecu 


lUO* 

MOVE.V 

RBJREElAil, (A3)« 

igit (rti sp«ci bptg eggnt 

I7FA 

UEE 

ecu 


1721* 

KOVE.V 

RD_HIVA(AC), (A3U 

iggt ki vitir bfli cognt 

i7rE 

3iEE 

CC4C 


1722> 

1 mt 

HOVE.W 

RI.IOWAIAC), (A3U 

igit low witir bpti cogat 





1724* ; gil thi (Itgi tad aiti bgtt Fiml bggliias 

1«9(* • 


cm 

CUE 

CCC3 

cut 

a » •>!- t 

1721* 

BIST 

CIHFE.Rl, IB.FlGWKAit 

iif FORT <0 BUFFER distblid* 

QIOI 

CUE 



1727* 

BSR.S 

HAREBOOl 


IBCA 

CUE 

CCC4 

ecu 

172C* 

BIST 

lOVTEJl, RB.FUUKACI 

iif BUFFER to USER dinkltd* 

cue 

cue 



1727* 

181. 8 

HAREBOOl 


CBU 

CICE 

occi 

CC33 


BCLR 

C108T.11, ll.riC2U(Ai) 

ihif tap dtti baoB loilt 

cue 

CUE 



1731* 

If lit 

B8R.8 

HAREBOOl 






1 r lit " 

1733* , IF htii 

ig ill bgftgr Ihta iilgin it'i ADDRESS AHD SIZE 

CBU 

CC3E 

ecu 

CC31 

1733* 

BTST 

1AITIF.R1. U.FtCUKAil 


ecu 

C7CE 



t73(* 

lOFF.S 

RDSTaoni 


cm 

tCFC 

ecu 


1737* 

NOVE.l 

Cl, (A3I« 

isot All bafitr baala^a 

ecu 

ICEE 

CC44 


173C* 

HOVE. A 

1B_ABAD1(A4I, (A3U 

igil Alliiatlt bitfai Additff 

CBU 

34CE 

CC4C 


1737* 

HOVE.V 

RB.ASIZEIAC), IA3I 

igtl Allttaili boFitt ilit 

CUB 

iCCi 



1740* 

1741* 

IRA. 8 

RDSTiiit 


CC3C 

42IB 



1742* RDSTboat 

CtR.I 

(A3)« 

lao Altoraali baiitt ttailiblt 

CUE 

417B 



1743* 

ClR.l 

(A3)» 

ii« HIl paiatai tor iddiiit 

CCIC 

4133 



1744* 

1745* 

CIR.V 

(A3) 

itad 1010 bglga flit 

ecu 

4E7S 



1744* IDSTigit 

1747* - 

IT8 







174C* ; HCUBOOl 
1747* ' 

- a«R* Fiidil boglita traa ggig iUg 


ecu 

sccc 



1731* KUEBOOl 

»» 

DC iDC.I • 

IFF If fort fUg oltit 

CC3C 

cue 

CCCl 


1731* 

ANDI.I 

CTIUE, DC ilgia to 

Ftfod botliiB (1 • trail 

CUE 

tCH 



1732* 

MOVE.I 

DC, (A3)7 ii(fg la fitbaitir bUgk 

CC4C 

4E» 




RT8 

' 




rill: DRV.DTICOH.TCIT 


Fill U 






195S> 

tivisn 

- GET THE VIITE Biimi STATUS 






1724* 

Piuttti(Bl*c2 

• llcorO 






1»57« 



IntlicSiit ; intioti; 





1721* 



flllSpici : intlltli 





1759* 

IRON BUFFER CNTRL TBl -> CluiiBtwnENQf : IB 

tigiii 





1740* 



InpotOiiabliO . b 

tii (tiof > li (ilii ■ 0) 





1741* 



OatpBtDiffbl«4 : b 

ti; (till ■ 1, tllll a 0) 





1742* 



AatoLiitFftO ; b 

ti; (tint a li tilii > fl) 





1943* 



AltBaf(eiAf«U : b 

tti (tia* a 1, fill! 1 0) 





1944* 



AltliKicAddr : p 

intir, (0 U AltlattirAiijl lilic) 





1745* 



AltBoffllSlii : i 

tigir, (0 it Altlnf (itAfiil falif) 





1944* 



tndi 






1947* 





0142 

24EE 

0024 


1940* . 

TVT8TJ 

HOVE.W 

VBJI2E{A4)r (A3U 

iget batter site 

OI4t 

mi 

0124 


1749* 


HOVE.W 

W8.FIEE(A4), (A3)* 

jet tree ipioe bpte coaot 

0141 

24CE 

OOOE 


1970* 


HOVE.V 

BFJTVNEA(A4), (A3)* 

,git EiiiiQi natbec et ehui betweea 





1971* 









1971* 

III tti lli|i lid iiti bill Fiicil biiliiii 






1973* 





0641 

0I2E 

0012 

0012 

1974* 


BT5T 

IIHPE.VI, VB.FLCUKAd) 

iii USER to BUFFER disibledf 

0124 

4U2 



1972* 


BSR.8 

RAXE80DL 


0124 

0I2E 

0014 

0012 

1974* 


BT6T 

lOUTE.Vl, WB.FLCUKA4) 

,is BUFFER to FORT diiibled* 

0I2C 

4 IDA 



1977* 


88R.8 

HAKEBOOL 


0121 

0I2E 

0004 

0017 

1971* 


8TST 

IAULF.V2, VflJLC2»t(Ai) 

ill Aato llBefeed lode ont 

0144 

4tD2 



1979* 


B8R.8 

HAEEBOOl 






1910* 









1911* 

IF Aivi 

it Alt bifltr tbiB retain iff ADDRESS A71D SIZE 





1902* 





0144 

0I2E 

0002 

0012 

1913* 


8T8T 

OALTBF.Vl. VIJlCt*l(A4) 

064C 

470E 



1914* 


lOFF.S 

VTBTioni 


0141 

UFC 

0041 


1912* 


KOVE.I 

It, (A3)* 

ifet Ait baffei beelim 

0171 

14EE 

1121 


1914* 


HOVE.L 

VB.ABADR(A4), (A2)* 

,get Altiiiite batter Addieit 

1174 

31AE 

OOlC 


1917* 


rtOVE.V 

VbIa8IXC(A4), (A3) 

,get Alteisite batter fire 

0171 

4004 



1911* 


BRA.& 

VTSTuil 






1919* 





I17C 

4218 



1990* \ 

FTSTiioii 

CIR.B 

(A3)* 

iio Ailiiiite batter tteiUble 

0171 

fZOB 



1991* 


CIR.L 

(A3)* 

lie Nil pointer ter iddresi 

111! 

4223 



1992* 


ai.v 

<A3) 

iind lire bflei fiie 





1993* 





0112 

4172 



1994* V 

rrsTtiii 

ITS 




i 

1 



DRV.DTACOH.TEIT 


Pifi 4S 


fill 





1998* 

i STBFSTS • Return to 

the our in the pir«mitit Aloek the ititi of tbi BoHit Control Ttbli. 




19971 

, PiuneterBloek 

• record 






199|t 


BaodRatt 

lateoer 

;(range ■ 0. .8) 




1999* 


Parity 

intioer 

;(tange * 0.4) 




2000* 


DataCoi 

iatfoer 

iltange > 0. .1) 




200 1* 


VordSlii 

integer 

;(tange > 0 . . 1) 




2002* 


HandSbaki : 

intigii 

itrange • 0. .9) 




2003* 


end; 






1004* 





GfiS4 

4281 


1005* 

STBFSTS CLR.L 

"Dl 


;HAKE SURE NO CAR8AGE IN REGISTER 




1008* 








2007* 

i CET BAUD RATE 







2008* 





oesi 

303C 

0008 

3009* 

KOVE.V 

tHAXBAUD.DO 


;KAZ BAUD HATE PARAKETER VALUE 

D8BA 

UZE 

gooB 

2010* 

HOVE . B 

BFJD6D(A4}, Dl 


; CURRENT TABLE VALUE 

0B8E 

41fA 

018lt 

2011* 

LEA 

BAUDCNV,A0 


; CONVERT TO INTEGER RANGE 

DS92 

il2C 


2012* 

B3R.S 

CETVAL 






2013* 








2014* 

, GET PARlTt 







2015* 





0898 

303C 

0004 

2018* 

KOVE.V 

IKAZPRTY.DO 


,KA2 PARITT PARAKETER VALUE 

0898 

12ZE 

ODOC 

2017* 

HOVE . B 

8F,PART(A8). 01 


; CURRENT TABLE VALUE 

0B9C 

UFA 

OIBU 

1018* 

LEA 

PRTKNV.AO 


; CONVERT TO INTEGER RANGE 

08AB 

UlE 


2019* 

BSR.3 

CETVAL 






2020* 








2021* 

i CET DATACOH - BASED 

ON 04 and the SAVED UNIT NUMBER 




2022* 





08A1 

4211 


1023* 

CLR.L 

Dl 


iaisQie if Fort 0 

D4A4 

B87A 

0842* 

2024* 

CHP.V 

UnitPO. D4 


;ii Fort 0* 

eSAS 

8702 


202S* 

BEQ.3 

SBrSisPO 


;yei 

OBAA 

7201 


2026* 

HOVEQ 

11, Dl 


;no, sbow af Port 1 

OBAC 

36C1 


2027* 

SBFSifFD KOVE.V 

Dl, (A3)* 


;8arft pacaiittr 




2028* 








1029* 

, GET VORD SIZE 







1030* 





08AE 

122E 

GOOD 

2031* 

KOVE.B 

BF.VRD3(A8), Dl 



QBBl 

38C1 


2032* 

KOVE.V 

Di, (A3)* 






2033* 

i 







1034* 

, CET HAHD3HAXE 







203S* 

i 




08B4 

303C 

0009 

1038* 

KOVE.V 

IHA!HKDS,D0 


,HAX HANDSHAKE PARAKETER VALUE 

0868 

122E 

0013 

2037* 

KOVE.B 

Br.PROF*l(A8),Dt 


i CURRENT TABLE VALUE 

08BC 

41FA 

0188* 

2038* 

LEA 

KNOSCKV,AO 


i CONVERT TO INTEGER RANGE 




2039* 








2040* 

i CET PARAKETER VALUE 

tN PUT IN FtRUIETEI BIOCK 




2041* 





08C8 

6230 

0000 

2042* 

CCTVAL CHP.6 

O(AO.DO.V), Dl 


iSEE VHICK CONVERSION VALUE > CURRENT VALUE 

D8C4 

S7C8 

FFFA 

1043* 

DBEQ 

DO, CETVAL 


iTHE INDEX OF ONE « 18 THE PARAMETER VALUE 

0IC8 

38C0 


1044* 

KOVE.V 

DO, (A3)* 


i RETURN TO USER IN rAIANETER BLOCK 

08CA 

4E7S 


204S* 

RTS 






Fill: DRV. DTtCON. TEXT 


Pigt 1i 


OICC 

1990 

F7C9 


2017* 

DoDifiBt 

BRA 

DISIKTS 


DISABLE INTERRUPTS 





2919< 










2019* 

i STOUTRD 

- TOGGLE OUTBOUND RECEIVE DISABLE 

(BUFFER TO USER) 





2050< 

1 





C8D0 

ilFIl 



2031* 

STQVTRD 

BSR.S 

OoOifUt 


DISABLE INTERRUPTS 

OID2 

091E 

0091 

0031 

2032> 


BCHG 

90UTC_B1, RBJLCltKAD 



9BDI 

991E 

0991 

0031 

2933< 


BCHC 

90UTE_I1, RB_FLC1«1(A1I 



OIDE 

1912 



2031* 


BRA.S 

DoEiblit 

iiiubli iDticrgpti 





2033> 

f 









2031* 

; STINRO - 

- TOGGLE 

INBOUND RECEIVE DISABLE (FORT TO BUFFER! 





2057* 

i 





IlEt 

HER 



2039* 

STIHRD 

BSR.S 

DoDifllt 


DISABLE INTERRUPTS 

die: 

11EE 

9031 


2039* 


LEA 

RB.FLCUKAI), AO 

iiddriii of fUgs 

OIEi 

0130 

0097 


2010< 


BCHC 

OINFC.RI, (A9) 


uiic coriintlr controllingl 

OIEI 

1101 



2011* 


BON.S 

INROmb 


gii, tbiB inibli 

OIEC 

1111 



2012* 


BSR.S 

DisRciU 


no, diiiblo iopot 

OiEE 

1002 



2013* 


BRA.S 

DoEoblil 



0IF9 

1131 



2011' 

IHRDinb 

BSR.S 

EnbRofU 







201S< 






9IF2 

1000 

F7C9 


2011* 

DoEiblnt 

BRA 

ENBIKT5 


ENABLE INTERRUPTS 





3017* 










2019« 

: STOUTVr 

- TOGGLE OUTBOUND TRANSMIT DISABLE 

(BUFFER TO PORT) 





2019* 

i 





99Fi 

1101 



2070« 

STOirrvT 

BSR.S 

DoOiilst 


DISABLE INTERRUPTS 

09F9 

001E 

9991 

0013 

2971* 


BCHG 

lOUTCJH, WBJLCUUAIl 


toggli Diot contiolling 

99FE 

901E 

0991 

0013 

2072* 


BCHG 

IOUTE_WI, WB.FLGUUAI) 


ind intblifdiiibli flig 

9991 

1101 



2973* 


BON.S 

OTWToff 


now diiiblod, totn off nil inf 

9991 

1100 

FR39 


3071* 


BSR 

STRTXMIT 


onibli nil int 

999X 

10E1 



2073< 


BRA.S 

OoEiibUt 



999C 

1100 

FA1E 


2971> 

OTVFoK 

BSR 

STOFXNIT 

;distbll Hit Uti 

9919 

1OE0 



2077* 


BRA.S 

OoEnblot 

iiniblo Igtiiropti 





3079* 

i 









2979* 

i STIHW 

- TOGGLE 

INBOUND TRM1SHIT DISABLE (USER TO BUFFER) 





2099* 

1 





9912 

11B0 



3091* 

STIXVT 

BSR.S 

DoDisUt 


DISABLE INTERRUPTS 

9911 

11EE 

9913 


2092* 


LEA 

WB.FlCIiKAi), A9 


iddtisi of fligi 

9919 

0030 

0097 


2093* 


BCHG 

lINFC.VI, (AO) 


toggli out ooDtroIIing 

991C 

0910 

9092 


2091* 


BTST 

lALTBFJtfl, (AO) 


if got in lit bnflir 

9929 

1100 



2093* 


BON.S 

DiEoblst 


thin iliiidg fit, lit it inibli 

9922 

0030 

9993 


2091* 


BCHG 

tIHFE.VI, (AO) 


ilii toggli it 

9921 

10U 



2097* 


BRA.S 

OiEobUt 


inibli Intiiiopti 



DRV. DTACOK. TEXT 
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File; 






2089* 







2090* 

CobRcfln - Enable inpat rceeiie 






2091* 

Entrf : A4 ■ addtcsn oi ports data area 






2092* 

AO K address oi read baiter flag 1 

low byte 





2093* 

i&teirapts disabled 






2094* 



091S 

0810 

0002 


2095* EnbRcvIn BTST IALT8FJ1, (AO) 

alternate buffet available* 

09ZC 

4404 



2094* 

BON.S ERlchkprt 

yes then let switch enable RCV 

092E 

0590 

0005 


2097* 

BCLR lINPEJl, (AO) 

NO, enable input 





2098* 







1099* 

see if shoatd tell other side not BUSY 






2100* 



0931 

4000 

F910 


2101* CRIchkprt SRA ChkPtoto 






2102* 







1103* 

DisRcf In 






1104* 

Entry : A4 » address of ports data area 






2105* 

AO a address of read buffer flag 1 

low byte 





1104* 

interrnpts disabled 






2107* 



0934 

OBDO 

0005 


2108* OisRciln BSET IINPEJI. (AO) 

disable input 

093A 

4414 



2109* 

BON.S DRIesit 

if was off then don't go bosy again 





2110* 







lilt* 

if protocols enabled and NOT Line type protocol 

then go busy 





nil* 



093C 

082E 

0000 

0012 

1113* 

BTST iPROT_P2, BF_PHOnA4) 

SEE IF ANY PROTOCOLS AT ALL--CHECK HI BYT 

0943 

470C 



2114* 

BOFF.S DRleiit 

No protocol enabled, eiit 

0944 

063E 

0000 

0013 

1115* 

BTST Uine, BF.PROFal (A4 ) 

IS it a Line protocol* 

094A 

4404 



1114* 

BON.S DRleiit 

Yes, eiit 

094C 

4100 

FB70 


2117* 

BSR CoRcvBnsy 

go busy 





1118* 



0950 

4E7S 



2119* 

DRleiit RTS 




File DRV DTtCQK TCIT 


Figi 4B 





3131> i 

3133> i IVBCHR - 
3I33> , 

CET Nuibti 

Hi chitaettrs IM 

tbc VRITE BUFFER 



302E 

0030 

3130* BVICNR 

HOVE.V 

VB_S1ZE(A«), DO 

;StZE IN D1 


OtSi 

OOiE 

003t 

3135« 

SUB.V 

VB.FREEcAOl, DO 

, SIZE - FREE :: Noibit of 

CHARS 

OfSt 

3010 


212t> 

HOVE.V 

DO, (A3) 

, ittora to Dsac aioant 


09jC 

0E75 


2127« 

RTS 







2t20< i 

2I20> , BRBCHR - 
2130> , 

CET Noiber 

of chicacters IK 

tbc READ BUFFER 


one 

303E 

0000 

2I3t* BRBCHR 

HOVE.V 

RB.5IZe(A(), DO 

.SIZE IN D1 


on; 

tOiE 

0003 

2132* 

SUB.V 

RB.FREEfAOl, DO 

; SIZE ■ FREE Noibct of 

CHARS 

on« 

30(0 


2133< 

HOVE.V 

DO. (A3) 

, tetotn to asic aioont 


o««t 

0E75 


2t30* 

RTS 






File: 


om 

me 

0?7« 

0??2 

(I77i 

077t 

077C 

077E 

09IC 

0712 


07M 

07n 


078C 

0799 

0774 

0779 

079C 

0790 


0792 

0794 


0799 

0799 

079C 

079E 

07B0 


DRV. DT9C0H. TEXT 
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2136* , 

2137* ; STRD9LTBF - sit Attemti Buffic lot Reid 
2139* ; 


6100 

F729 

2137* STRD9LTBF 

BSR 

DiSIKTS 

disibie interrupts 

6139 


2140* 

BSR.S 

CetAltBal 

get address and site user passed 

6609 


2141* 

BNE.S 

RD9BSS 

addt ok, check site 

41EE 

OOSC 

2142* 

LE9 

RDBUF(96), 90 

the; were tero so use delialt 

303C 

0190 

2143* 

HOVE.V 

(RBFLEK, DO 

read boiler 

6009 


2144* 

BR9.S 

RD9Bok 




2143* 




4940 


2146* RD9BSI 

TST.tf 

DO 

check site, Is it negatire’ 

6904 


2147* 

BFL.S 

RD9Bok 

no 

7E36 


2149* STBFerr 

MOVEQ 

lINVPRH, D7 

pcs, iniilid paraieter 

6020 


2147* 

BR9.S 

RDABeiit 




2150* 






2151* ; got bailer iddtess 

iDd length 




2152* i 




092E 

0001 0033 

2153* RD9Bok 

BTST 

9ENPTJ2, RB_FU2«1(96) 

corrent boiler eiptp? 

6616 


2154* 

BOH.S 

RDhBswUh 

pes, then use oser's boiler 



2155* 






2156* , bailer 

isn't esptf 

so wilt till eigti to switch 



2157* i 




2D49 

0044 

2150* 

KOVE.L 

90, RB_9B9DH(96) 

sate address In alt boiler adt 

3D40 

0049 

2157* 

KQVE.W 

DO, RB_9SIZE(96I 

and length In alt bailer sue 

41EE 

0031 

2160* 

IE9 

RS_riCUl(96), 90 

DlsRcfln needs 90 -) Hag bpte 

0900 

0002 

2161* 

BSET 

•9LTBF_R1, (90) 

alt bullet aeailable true 

6100 

FF79 

2162* 

BSR 

DisRcf In 

disable Input and see 11 should g 

6002 


2163* 

BR9.S 

R09Bsiit 

silt 



2164* 






2165* 1 EMPTY SO N9KE NEW the earrent bullet 




2166* i 




6130 


2167* SD9BsHtch 
2169* 

BSR.S 

SetnpRB 


6000 

F714 

2167* RDhBeiit 

BR9 

ENBINTS 



20SB 

301B 

4291 

B299 

4E73 


2170* 

2171* 

2172* 

2173* 

2174* 

2175* 

2176* 

2177* 

2179* 

2177* 

2190* 

2191* 

2192* 

2193* G9BFciit 


CilNewBof - tioi mi's otriiilet block gst the 911 bullet 
iddtiss ind site. 

EXIT DO 3 lit boiler length 
Dt « 0 

90 e lit boiler iddcess 
(EQ) s ose delioll 
(NEI > ost 90 ind DO 


Cet91tBot K0VE9.1 
HOVE.U 
CLR.l 
CItP.t 
RTS 


(A3)t, 90 
(93)1, DO 
D1 

90, D1 



Fill: DRV.DTtCOH.Tm 


Pigi JO 






2185* 

; STVFALTBF 

- set Alternite Bullcr foe Wnte 






2180* 

; 




t?I2 

0100 

E0E2 


2187* 

5TVTALTBF 

BSR 

DISINTS 

1 disable interrupts 

09B1 

ilFO 



2188* 


ESR.S 

GetAltBof 

iget user's buffet address and sue 

09Bi 

iOOA 



2189* 


BNE.S 

VTABsi 

, addt good chk sue 

09Bt 

41EE 

013C 


2190* 


LEA 

WRTBUFtAO), AO 

, theg were leto so use default 

09BE 

3 03C 

0100 


2191* 


MOVE.W 

8VBFLEN, DO 

, write boffir 

09C2 

0004 



2192* 


BRA. 5 

WTABok 






2193* 





09C4 

4A40 



2194* 

WTABsi 

TST.W 

DO 

; check sue, is it negatieel 

ll!Ci 

OBBO 



2195* 


BNI.S 

STBFerr 

, no 





2190* 









2197* 

, got bolfti iOdctss 

and length 






2198* 

, 




OfCI 

0E2E 

0001 

0019 

2199* 

VTABoic 

BIST 

8EHPT_V2, Wa_FU2*l(A0) 

, current buffet eiptg’ 

09CE 

0010 



3200* 


BON. 5 

VTABswtch 

, ges, then use user s buffer 





2201* 









3202* 

, bnllei isn't iBptg 

so wait till Hptp to switch 





2203* 

, 




0900 

2040 

0020 


2204’ 


HOVE.E 

AO, VBJBADRiAOi 

,sase address in alt buffet adr 

09D4 

3040 

002C 


2203* 


ROVE V 

DO, VB.ASlZEfAOl 

,and length in ait buffer sue 

0900 

OOEE 

0003 

0013 

2200* 


BSE7 

OlNFE.Vl, WBJLCUKAOl 

, disable input 

09DE 

OOEE 

0002 

0013 

2207* 


B5ET 

lALTBF.Wl, WBJLCUKAO) 

,alt butfei aiailable true 

09E4 

0002 



3208* 


BRA 5 

WTABeiit 

, eiit 





2209* 









2210* 

, EHFU 50 ItAAE NEW 

the current buffer 






3211* 

, 




09E( 

0104 



2212* 

VTABswtch 

BSR. 3 

SetupVB 






2213’ 





09E0 

0000 

F0O2 


2214* 

WTABeiit 

BRA 

ENBINTS 






2313* 









2210* 

, SttupBB - 

put the 

alternate buffet info in the 

Read Buffer Conltol Table 





2217’ 

, SltupVB - 

put the 

alternate bnfler info in the 

Write Bufter Control Table 





2218* 

, Entr; : DO - 

alternate buffer siie 






2219* 


AO ° 

alternate buffer address 






2320* 

; 




09EC 

43EE 

0010 


222 1 * 

SetapWB 

EEA 

VBJiLLF(AO), A1 


09FO 

99CC 



2222* 


SUBA.L 

A4,A4 


OOF! 

0001 



2223* 


BRA. 5 

STUPgo 






2224* 





09F4 

43EE 

0034 


2225* 

SetapRB 

LEA 

RBJIELFIAO), A1 


09FI 

49EE 

003C 


2220* 


lEA 

RDBUFfAOl, A4 






2227* 









2228* 

. MOM the 

buffer address into the Front, Rear, 

and buffet pointers 





2229* 

, 




09FC 

22C0 



2230* 

STUPqo 

HOVE.L 

AO, fADt 

;set the fill (FtentI pointer 

09FE 

22CI 



2 23 1* 


ROVE . E 

AO, (Alla 

,set the eiptg (Reail pointer 

OAOO 

22C0 



2232* 


HOVE . L 

AO, (Alla 

;set the buffet pointer 





2233* 









2234* 

; tore the 

slie into 

the buffer site and free space counter 





2233* 

, 




OAO] 

32C0 



22 30* 


HOVE.V 

DO, (Alla 

iset the site 

OAOO 

32C0 



2237* 


HOVE.W 

DO, (Alla 

;set the free space aiailable 





2238* 







rill DRV DTACOM, TEXT 


51 






323!< 

, lie if 

should sit 

wster lilts 

foi reid bofiei 





iX40< 

i 




OtOl 

B9C8 



2241* 


CHPA.L 

AD, A4 


OAOI 

uo: 



2242> 


BKE.S 

STUPiiil 


OXOX 

3D7C 

3015 

OOOA 

2 243* 


MOVE W 

IHAIRHI, 

RB_HIWA(A4) 

OAIO 

3D7C 

005 0 

004C 

2244* 


HOVE.V 

IHAIRLO, 

HB_LOVA(A0l 

OAti 

U73 



2245* 

STUPciit 

RTS 





Fill: DRV.DUCOH.TEIT 


Fige S2 


m7‘ , 

]]<8* ; coDitint 8iti itti 
J!<>* , 

!230> , Cotitffion uiifi foe Sit fiinctiOM of Vnitstitos 
22S1* ; 

ORli 08 07 00 Ot OC OC 2232* 8AV0CNV DATO.B 0 ,7, 0, St, $C,<E , fF ,BtUD RATE 

OAIE OF 

1232< , i>200,7<000,0<1200,A<2400,C<4IOO,E>7SOO,F.17200 
2234< , 


OAiF 00 01 03 03 07 2233< FRTTCKV OATA.B 0,1, 3, 3, 7 .PARITF 

2230> ; 0<DISABEEO,I<ODD,3«EVEN,3»HARI EHIT/HO RCV,7>SPACE EHtT/NO RCV 
2257* I 


0A24 

47 

2230* HHOSCNV 

DATA.B 

S47 

LINEICTSf IRV 

0A23 

07 

2237* 

DATA.B 

$07 

UNE/CTBINOT INV 

0A20 

51 

2200* 

DATA.B 

S51 

UNE/D5RIINV 

0A27 

11 

2201* 

DATA B 

$11 

LINEfD5R/N0T INV 

0A2I 

01 

2202* 

DATA.B 

SOI 

LINEIDCDflNV 

0A27 

21 

2203* 

DATA.B 

$21 

LlNEfOCDINOT INV 

0A2A 

02 

2204* 

DATA.B 

$02 

lONflOFF 

0A2B 

04 

2303* 

DATA B 

$04 

END I ACE 

0A2C 

00 

2200* 

DATA.B 

$00 

ETEIACR 

0A2D 

00 

2307* 

DATA B 

$00 

NONE OF THE ABOVE PROTOCOLS 



FiU, DEV DTACOM.TEIT 


Fi^e S3 




2270* , 






2271* , Virublc diU itti 





2272» , 






2273« , Pott 0 

diU area 





2274* , 




0A2E 


227S* FoiIDDaU 






22 7i» 






2277* , DEFAULT 

BUFFER Coatrol Table - MUST HAVE SAHE 

FIELD FORMAT AS BUFFER CONTROL TABLE 



227B» , 





00000000 

2279' DEFBWRT 

EOU 

%-PettODiti 


0A2E 

OE 

2200* 

DATA B 

90E 

WRITE BAUD RATE-9400 


00000001 

2201* DEFERD 

EGU 

%-FotlOOita 


QA2P 

OE 

2262' 

DATA.B 

90E 

READ BAUD RATE-9400 


00000002 

2203' DEFFART 

EOU 

«-Fo[tODiti 


DA3t 

00 

2284' 

DATA . B 

900 

FARITV-DISABLED 


00000003 

2285' DEFVRDS 

EQU 

t-FortOData 


0A31 

00 

2288' 

DATA . B 

900 

WORD SIZE = 8 BITS (1^7 BITS) 


00000004 

2287' DEFETVHEA 

EOU 

%-FoctOOata 

NUMBER OF CHARS BETWEEN 

0A32 

0050 

2288' 

DATA.W 

80 

ENQ's 01 ETt'i 


OOOOOOOi 

2289* DEFINTRN 

EQU 

«-Fo[tOData 


DA34 

0000 

2290' 

DATA.W 

90000 

DFTERNAL FLAC--aIl off 


00000000 

2291' DEFPROT 

EQU 

U-ForlOData 


0A3l 

0902 

2292* 

DATA.W 

90902 

PROTOCOL FLAC-Enabled - lON/IOFF 


OOOOOOOA 

2293' DEFend 

EOU 

St-FortOData 



OODOCOOS 

2294' DEFBCTLN 

EQU 

(DEFend-DEFBWRT)/2 

nuibei of words is both tables 



2295' 






2294' , BUFFER 

COHTRQL TABLE 





2297' , 





OOOOOOOA 

2298' BFRCTl 

EQU 

VFoitOData 

Indei to Buffet Control Table 


OOOOOOOA 

2299* BF.VRBO 

EQU 

%-FortOData 

Indei to WRITE BAUD RATE 

0A3S 

00 

2300' 

DATA.B 

0 



OOOOOOOB 

2301' BFJDBO 

EQU 

%-FoitODaia 

liidei to READ BAUD RATE 

0A3! 

00 

2302' 

DATA.B 

0 



oooooooc 

2303* BF.FART 

EQU 

t-Foi(0Data 

Indii to PARITY 

0A3A 

00 

2304' 

DATA.B 

0 



OOOOOOOD 

2305* BF.WRDS 

EQU 

t-FortOData 

Indei to WORD SIZE 

3A3B 

00 

2304' 

DATA.B 

0 



OOOOOOOE 

2307* BFJTWNEA 

EQU 

%-FortOData 

Indei to NUMBER OF CHARS BETWEEN 

0A3C 

0000 

2308' 

DATA.W 

0 

END'S or ETI's 


00000010 

2309' BF_INTl 

EQU 

t-FoitOData 

Indei to INTERNAL FLAGS 

CA3E 

0000 

2310' 

DATA.W 

0 



00000012 

2311' BF.PROF 

EQU 

t-PoitOData 

Indei to PROTOCOL FLAGS-HAKDSHAKE TYPE 

0A40 

0000 

2312' 

DATA.W 

0 




2313' 






2314* i 

WRITE BUFFER CONTROL TABLE 




2315* , 





00000014 

2314' VRTCTL 

EQU 

%-Fo(t0Dita 

Indei to WRITE BUFFER CONTROL TABLE 


00000014 

2317' WBJIOI 

EQU 

t-PortOData 

Indei to FLAG WORD 1 

0A42 

0000 

2318' 

DATA.W 

0 



OOOOOOH 

2319' WB_FLG2 

EQU 

%-PortOData 

Indei to FLAG WORD 2 

0A14 

0000 

2320' 

DATA.W 

0 



OOOOOOIO 

2321* VBJILIF 

EQU 

t-FoitOData 

Indei to BUFFER FILL POINTER rear 

0A44 

00000000 

2322* 

DATA.L 

0 



OOOOOOIC 

2323* WBJHPTV 

EQU 

4t-Fo[tOData 

Indei to BUFFER EMPTY POINTER front 



File 


DRV OTACOM.TEIT 


Pi9i SI 


0A4A 

00000000 

2321* 


uATA.L 

0 





00008910 

2325* 

WBJADR 

EQU 

%-FottOD6t4 

. Indei 

to 

BUFFER ADDRESS 

ikii 

OOOOOQOO 

1324* 


OATA.L 

0 





DOOOOOH 

2327* 

WB_SIZE 

EQU 

V-FortODitd 

. Indii 

to 

BUFFER SIZE 

OASl 

0009 

2329* 


2ATA.V 

0 





000090U 

2329* 

VB.FREE 

EQU 

1L-Fo[tO&4U 

.Indei 

to 

AKOUNT OF BUFFER FREE SPACE 

0AS4 

0000 

1330* 


DATA V 

0 





ODOOOOll 

1331* 

VB.ABADR 

EQU 

%<PottOD4t4 

Indei 

to 

ALTERNATE BUFFER ADDRESS 

BASi 

00000908 

2332* 


DATA.L 

0 





OQOOQOIC 

2333> 

VB.AS12E 

ECU 

%-FoitODiU 

Indfi 

to 

ALTERNATE BUFFER SIZE 

BASA 

0900 

1331* 


DATA.V 

D 





9009083C 

1335* 

VBJENQ 

EQU 

l-FortOOiti 

Indei 

to 

Nmbei o( bftis beUce wait lor A 

BASC 

0000 

1334* 


DATA.V 

0 






2 3 37* 

, 








1331* 

; 

READ BUFFER CONTROL TABLE 






13 3 9* 

i 







00000930 

1310* 

RDCTL 

EQU 

t-PoitODiti 

.Indei 

to 

BEAD BUFFER CONTROL TABLE 


00008830 

1311* 

RB_FLG1 

EQU 

l-Po( tODita 

; iBdfi 

to 

FLAG VORD 1 

BASE 

0008 

1312* 


DATA.V 

0 





OOOD003Z 

2313* 

RB.riCl 

EQU 

%-PoMODala 

.Indei 

to 

FLAG VORD 1 

0A40 

0080 

1319* 


DATA.V 

0 





00090931 

2313* 

IBJIUP 

EQU * 

%-PoctOData 

Udei 

to 

BUFFER FILL POINTER rear 

OAil 

00000990 

1314* 


DATA.L 

0 





00090038 

1317* 

R8JHPTV 

EQU 

l-PorlODita 

indei 

to 

BUFFER ENFTY POINTER Iront 

0A44 

90000809 

1348* 


DATA.L 

0 





D900003C 

2319* 

RBJADR 

EQU 

«-FottOOiti 

. Indei 

to 

BUFFER ADDRESS 

0A4A 

00000090 

1350* 


DATA . L 

0 





09000010 

2351 * 

RBJIZE 

EQU 

%‘PorlODaU 

. Indei 

to 

BUFFER SIZE 

0A6C 

0000 

2352* 


DATA V 

0 





00000011 

2353* 

RB.FREE 

EQU 

l-PoitODjta 

. Udei 

to 

AMOUNT OF BUFFER FREE SPACE 

0A7Q 

0000 

1351* 


DATA.V 

9 





00090011 

2355* 

BB_ASADR 

EQU 

%-PoctDOata 

, Indei 

to 

ALTERNATE BUFFER ADDRESS 

0A71 

00003910 

1354* 


DATA.L 

0 





0000001I 

1357* 

RB_AS1Z£ 

EQU 

%-PortQOiU 

, Indei 

to 

ALTERNATE BUFFER SUE 

tA76 

0000 

1358* 


DATA.V 

0 





OOOflOOIA 

2339* 

RB_HIWA 

EQU 

«-Fo[tODiU 

.Indei 

to 

NUMBER OF BYTES IN K1 VATER MARK 

DA7I 

DDOO 

1340* 


DATA.V 

0 

.auBbei 

0 

bytes in buficr when at bi water 


0000001C 

1341* 

RB_LOWA 

EQU 

%-PortOOiti 

.Indei 

to 

NUMBER or BYTES IN lOV WATER HARK 

0A7A 

0000 

1362* 


DATA.V 

0 

.naibei 

0 

bytes in boiler when at low wale 



2343* 

, 








2361* 

, eoBliol 

chicictir 

bolltf 






2345* 








P000004E 

1344* 

CBJRONT 

EQU 

l-Po[tOOaU 

; Indei 

to 

Ctl bolter Front Pointer 

DA7C 

00000800 

2367* 


DATA.L 

0 





000000S2 

2348* 

CBJEAR 

EQU 

%-PortODaU 

.Indei 

to 

Ctl bolter Rear Pointer 

0A89 

00000809 

1349* 


DATA , L 

0 





aooQoosi 

2370* 

CB.FIACS 

EQU 

1-PottODiU 

.Indei 

to 

CU bolter Fla(]s word 

0A84 

0000 

2371 * 


DATA.V 

0 





000009S8 

1372* 

CTLBUr 

EQU 

«-PottOData 

.Indei 

to 

Ctl boiler 

0AI4 

00000000 

2373* 


DATA L 

9 






7371* 

, 








137S* 

, R«6d Ballii - 254 

bfUs 






2374* 








OQOOOOSC 

2377* 

RDBl/r 

EQU 

l-PoctOData 

i Indei 

to 

Read Boiler 



File: 

DRV.DTACOMTEIT 



Fige 00 


6ktk 

OOSOOOOS 

2378* 

DATA L 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 


OUF 

OGOOOOSO 





tkn 

OOOOOOSO 





ikU 

OOOODOSS 





tkU 

00000000 





QA9F 

ODOODOOO 





DAA2 

00000000 





OAAi 

00000000 





OAAA 

00000000 





OAAE 

00000000 





0AB2 

00000000 





OABi 

00000000 





OABA 

00000000 





OABE 

00000000 





0AC2 

00000000 





OACi 

00000000 





lACA 

00000000 

237>« 

DATA.L 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,128 

OACE 

00000000 





OAD2 

00000000 





OADi 

00000000 





OADA 

00000000 





CADE 

OOOOQOOO 





OAE2 

00000000 





OAEi 

00000000 





OAEA 

00000000 





OAEE 

OflOOOOOO 





OAF2 

00000300 





CAFE 

00000000 





SAFA 

00000000 





SAFE 

00000000 





0B02 

00000000 





QBSi 

OOOOOOOS 





SBSA 

00000000 

2300* 

DATA.L 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 


OBOE 

00000000 





SB12 

00000000 





OBU 

oooooooo 





OBIA 

oooooooo 





OBIC 

oooooooo 





SB22 

oooooooo 





0B2i 

oooooooo 





0B2A 

oooooooo 





0B2E 

oooooooo 





SB32 

oooooooo 





SB3i 

oooooooo 





SB3A 

oooooooo 





OB3E 

oooooooo 





0B42 

oooooooo 





SBSi 

oooooooo 





SBSA 

oooooooo 

33I1* 

DATA.l 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,250 

0B4E 

oooooooo 





0BS2 

oooooooo 





OBSS 

oooooooo 





SBSA 

oooooooo 





OBSE 

oooooooo 







File DRV DTkCOM TEIT 


0Bt2 

00000000 



OBoi 

00000000 



OBiA 

00000000 



OBiE 

00000000 



DBU 

00000009 



oe:< 

00003000 



3B7A 

00000000 



OBOE 

00000900 



OBS: 

00000000 



OBOi 

00000003 




903001SG 

2 392> 

RBFcfid 


00000130 

23I0< 

RBFLEK 



23I0‘ 

. 



23 05 * 

, Vn 



2 380* 

, 


0000013C 

23I7' 

VRTByF 

OBIA 

00000000 

23I8> 


OBIE 

90000000 



0B92 

00000000 



OBtt 

ooooocoo 



OBVA 

00000003 



OBOE 

00003000 



3EA2 

00000000 



OBAt 

00000009 



OBAA 

00000000 



CEAE 

30000000 



0BB2 

09000030 



OSEt 

00000000 



OBBA 

00000000 



OBBE 

oooooooo 



OBCZ 

00000000 



OECt 

oooooooo 



OBCA 

00000900 

2389* 


OSCE 

oooooooo 



0BD2 

oooooooo 



OBDt 

oooooooo 



OBDA 

30000000 



OBDE 

oooooooo 



0BE2 

oooooooo 



OBEt 

oooooooo 



OEEA 

oooooooo 



OBEE 

00003000 



OBFl 

oooooooo 



OBFi 

oooooooo 



OEFA 

oooooooo 



OBFE 

oooooooo 



0C02 

oooooooo 



OCOi 

00000009 



OCOA 

oooooooo 

2390* 


OCOE 

oooooooo 



0C12 

90000000 



OCti 

oooooooo 



OCIA 

oooooooo 



OCIE 

00000009 




Figi St 


EQU t-PcctOCiti 

EQU RSFend-RDBUr 

Built! - ZSt bTtes 

EQU t-PoctOOiti 

DATA I 0,(M,0.0,0,M.9,0,D. 


DATA.L 0,0, 0,9,0,1,0,0,11, 0,0, 


DATA.L 0.0, 0,0, 0,0, 0,0, 0,0,0, 


.READ BUFFER LENGTH 


; Udei to W[ itt Butf ([ 

0 , 0 , 0 , 0,0 


0,0, 0,0,0 ;ua 


0 , 0 , 0 , 0,0 



fil«: DRV.DUCOH.TEJT 


Fige 57 


0C21 DOODSDOO 
OC25 ODOOQOOO 
0C2A DODODOOO 
0C2E OOODOOOO 
1C32 DODDOODt 
0C3i DOOOOOOO 
0C3A DDOODOOI 
0C3E 00000000 
0C12 00000000 
0C4A 00000000 

0C4A 00000000 2371* DATA.L 0 , 0 , 0 , 0 , 0 , 0 , 0 . 0 , 0 , 0, 0 , 0 , 0 , 0 , 0, 0 ,256 

0C4E 00000000 

0CS3 OOODOOOO 

0CS6 OOODOOOO 

0C5A OOODOOOO 

0C5E OOODOOOO 

0C62 00000000 

0C66 OOODOOOO 

0C6A 00000000 

0C6E 00000000 

0C72 OOODOOOO 

0C76 OOODOOOO 

0C7A 00000000 

0C7E OODDOODQ 

0C82 DOOOOOOO 

0EO6 OOODOOOO 


0000025C 

2392* WBrenO 

EQU 

«-Po[tODlU 


00000100 

2393* VBFLEN 
2394* , 

EQU 

WBFend-WRTBUF 

;VRITE BUFFER LENGTH 

0000025C 

2395* pdlen 

EQU 

%-FoitODitl 

(Length of poit 



fjle DRV DT»COH TEXT 


Riqt 51 


nn« , 

I39I* , Fort I diti otti 

2399* , siH struclort is ths port 0 diti icei 
3400* , 

0C!A 24II1< PorllDiti 


24 02* 

24D3> , DEFAULT BUFFER Control Tible 
24D4> 


OCIA 

OC 


2405* 

DATA.B 

soc 

, WRITE BAUD RATE-4100 

0C9B 

OC 


240i< 

DATA . B 

soc 

.READ BAUD RATE-4100 

0C8C 

03 


2407« 

DATA.B 

900 

IFARITV-OISABLEO 

OCID 

00 


2400* 

DATA . B 

900 

,WORD SUE n B BITS (1*7 BITS) 

0C!E 

0030 


2409' 

DATA.W 

00 

; NUMBER OF CHARS BETWEEN END'S or ETI's 

3C9II 

0300 


2410> 

DATA.V 

900 

, INTERNAL FLAC-lli off 

0C92 

09il 


2411' 

DATA.W 

9 09 1 1 

.PROTOCOL FLAC-EniblcilfLINE/DSR/NOT INV 




2412* 




CC94 

00 00 00 00 


2413« 

DATA.B 

0,0, 0,0 

, buffer control tiblc 

0C9I 

0000 0000 

0030 

2414> 

DATA.W 

0,0,0 





2415« 




(C9E 

00000000 


24U> 

DATA.: 

0,0, 0,0 

, write buffet control tible 

3CA2 

00000000 






OCAi 

oooooooo 






gcAA 

00000000 






OCAE 

0000 0000 

0000 

2417* 

DATA W 

0,0, 0,0,0 


0CB4 

0000 oooo 


2410* 




OCBI 

oooooooo 


2419* 

DATA.L 

0,0, 0,0 

i teid buffet control tible 

ODBC 

oooooooo 






OCCO 

oooooooo 






0CC4 

00000003 






OCCI 

0000 0000 

0000 

2420* 

DATA.W 

0,0, 0,0, 0,0, 0,0 


gccE 

0000 0000 

0000 





0CD4 

0000 0000 


2421* 







2422* i 

control chiricter 

buffer inO control rirlibles 




2423* ; 




OCDS 

oooooooo 


2424* 

DATA L 

0,0 


OCDC 

00000330 






OCEO 

0000 


2425* 

DATA.W 

0 


0CE2 

oooooooo 


242t* 

DATA.L 

0 





2427* , 




0CE4 

oooooooo 


2420* 

DATA.L 

0,0, 0,0, 0,0, 0,0, 0,0, 0,0 

,0,0, 0,0 ;04 

OCEA 

oooooooo 






BCEE 

oooooooo 






0CF2 

oooooooo 






0CF4 

oooooooo 






OCFA 
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VRBITOFS 

OOOOOOIA 

WTSTEIIT 

000(924 

SVSCHDIR 

OOOOOOIC 

TURNOFF 

000(9002 

unFs 

00000017 

VRCKARFT 

000000(0 

VTSTNONE 

00097C4 

SVSEEK 

00(09930 

UARTDCB 

(((30F20 

unvF 

00000017 

VRCHD 

00000002 

IHITOIS 

00000(09 

svususr 

OOOOdOC 

UCCNOTHT 

(0032E4 

VECl 

00000044 

VRCURADR 

00000009 

ZKITEKB 

00000(04 

SVUCUAR 

00(00009 

UGCNOVRF 

00(2144 

VEC2 

00000049 

VRCURS2 

00000014 

lOFF 

00000(13 

SVUINSTL 

00(000?( 

UCETCHR 

(001F44 

VEC4 

00000070 

VRCURSV 

(0000019 

ION 

00000011 

SVUISPO 

OOOOEOi 

UND5CR 

(09(0001 

VERT 

0(900000 

URFllLl 

00000035 

lONIOFF 

00000001 

SVUREAD 

00009(04 

UKITFO 

(OOEE(4 

VIDDEFLT 00000003 

VRF1LL2 

00000024 

11X010 

0(00(74 

SVU5TAT 

00000044 

UNITFl 

000EEA4 

VIDSET 

0(000007 

VRFIU3 

00000027 



SVUVRITE 

00(00000 

UNHCKD 

00(00004 

VBFEND 

0000025C 

VRFILL4 

(0000029 



SVVAIDIR 

00009084 

UFCISAIF 

00033C4 

VBFIEN 

00000100 

WRCRORGI 

OOOOOOIC 




0 iiriti ]4Si linn. Fill DRV. DTACOH. TEXT 



NOTE 


THE FOLLOWING EXAMPLE IS A LISTING OF THE PRINT 
WINDOW PROGRAM USED FOR DOING A SCREEN DUMP FROM 


A TEMPORARY WINDOW 



VSIXRF — Cross) Keferencu Li^tina 
File ID , PRTVND .TEXT 


N o V e m b li 1. 2 0 . i '? 8 

r u g « 


1 . { PRTWND , TEXT 

2 . C 

i) . ( PRTVND — Print Current Window 

4 . { 

5. C <c> Copyright S962 Corvus Systems, xric. 

6. t SeiiJose,CAlito£nid 

7 . { 

fi. i All Rights Reserved 

9 . C 

10. { V 1.0 G7-01-62 KML Ciiginal prugieiti foi HXlGO p £ 

11. { V 1.1 10-01-82 LEF Added IUS460 printti suppoti 

1 2 . { 

1 3 . { 

14 . 

1 'j . PROGRAM pt twnd , 

1 6 . 

17, USES {6U /CCUTIL/CCL1B3 CCdefn, CCwndlO, 

18 - 

1 9 . CONST eso *= 27 , 

20 . 


21 . 
22 . 

TYPE 

p r t r i d 

» (NONE, IDS, MX 100) 

23 . 

VAR 

p r t y p e : 

p r t r I d ; 

24 . 


p r t r : 

integer ; 

23 . 


d i * p : 

integer i 

26 . 


i . at gn . 

ini eger , 

27 , 


our Vn d ; 

pWndRcd ; 

28 . 


pDe V . 

pSiringBO, 


29 . 

30. {-CCLIB extern «il definition-^ i 

31 . 

32. FUNCTION pOScurWnd: pVndRcd, ( yet Icybd reoord pointer } 

33. FUNCTION pOSdevNam <n: integer): pStcinodO, 

34. FUNCTION OSdispOv; integer. { yet display unit nmbr ) 


1 n t e i 


DXTERl'lAL , 
E X 'r E R i i A L , 
EXTERNAL, , 


3u . 


3 6 . 

37 . 

38 . 

39 . 

40 . 

4 1 . 

42 . 

43 . 

44 . 

45 . 

46 . 

47 . 

48 . 

49 . 

50 . 

51 . 

52 . 


PROCEDURE Rbyies (x.y, count, integer. pBulC: phytes/; 

con* I RDBYTES ^ 7 , 

V a, r wb u£. record 

byteoount . integer . 
buffptr. pBytes; 
end , 

begin 

if y < 0 then begin 

pBuffA[03 :b 0. exit (Rbytes). end, 
write <'\lBo', chr(x div 256), chr(x mod 206^, 

chx(y div 256), chr<y laod 2 56), chL'<2)^, 

wbu f.bytecount :■ oount; 
wbuf. buffptr ;» pBuffi 
unitstatus < d i s p , wbu £, RDBYTES ) i 
end i 


C $P> 



VSIXRF >- Cross Refsrsncs Listing 
File ID : PRTVND . TEXT 


November 20< 1?6Z 

Page 2 


53. PROCEDURE spit (b. byte)i 

54. begin unitv^rite <. 6 , b, I , 0/ 1); end; 

55 . 

56 PROCEDURE doit; 

57. var integer^ b. byte, 

58. cell: array C0..6!l of byte, 

59 . 

60 FUNCTION bit <i,}: integer), integer; 

61. varb. integer; 

62 begin 


63 . 

b : « 

ce 1 I C i I . 

bit 

. * 

0 ; 




6 4 . 

1 f b 

< 0 

t lien 

b . 

» b 2 5 6 ; 




6 5 . 

case 

] o f 








6 6 . 

0 

: i f 

odd 

< b 

div 

128) 

then 

bit 

* 

67 

1 

: i f 

odd 

(b 

div 

64) 

then 

bit 

- 

6 8 

2 

: 1 C 

odd 

<b 

div 

32 > 

t hen 

bit 


69 

. 3 

: i f 

odd 

< b 

div 

1 6 ) 

then 

b i t 

a 

70 

4 

i £ 

odd 

(b 

div 

6 > 

then 

bit 

a 

7 1 

5 

: i £ 

odd 

<b 

div 

4 ) 

then 

bit 

• 

72 , 

6 

. i £ 

odd 

(b 

div 

2) 

then 

bi t 

■A 

7 3 . 

7 

: i £ 

odd 

(b ) 



t hen 

bit 

m 

74 , 

end 

, 








7 5 . 

end ; 









76 . 










7 7 . 

begin 









78 , 

write ('\lBb' 

) , C 

CURSOR 

OFF 

} 



7 9 . 

with cu rWndA 

do be 

gin 







80 . 

81 C SET LINE SPACING TO 8 DOTS ) 

82 


83 . 

i £ 

pr 1 yp« 

84 . 


e p i t 

65 . 

i f 

pr t yp« 

86 


c p i t 

87 




■ MXiOO then begin 
<eso), spit <ord<'A’>); spit 
« IDS then begin 
( 3 ) ; end ; 


86 

89 . 

90 . 
9 I . 

92 . 

93 . 

94 . 

95 . 


PRINT LEFT WINDOW BORDER ) 

if prtype • 11X100 then begin 

spit <eso); spit <ord('K')>; 

spit ((lngthy+2) mod 256); 

spit <<lngthy+2> div 256); 

for y :■ 0 to lngthy+1 do spit <1 

end ; 


96 . 
9 7 . 


I 

I 

1 

I 

1 

1 

1 

i 


( 


) ; end ; 


C «P} 



VSIXRF -- Ctof« R«(«t«na« {.Isttng 
Fit* 10: PRTWND.TEXT 


Nov*ab*r 20i 1?82 

Pag* 3 


?8 . 
99 . 

< PRINT 

WINDOW } 

100 . 


It pctyp* - MXtOO than 

101 . 


for 1 :a 0 to Ingtha dtv B do bagln 

102 . 


■pit (13>i *plt (10): 

103 . 


■pit <**o>< *plt (ord('K'>>t 

104 . 


■pit <(Ingthy+2> mod Z5i>; 

105 . 


•pit Ilingthy+Z) dlv 2SB); 

106 . 


■pit <-l>; { BOTTOM WINDOW BORDER } 

107 . 


(or y :• 0 to Ingthy-I do bagln 

loe . 


Rbytas (■*8. y, 1. 9b>; 

109 


■ pit <b ) ; 

no. 


and i 

111. 


■pit <-l>; ( TOP WINDOW BORDER > 

112 . 


and i 

113. 


if prtypa • IDS than bagln 

114. 


y : a lngthy-1 ; 

115. 


r apaa t 

116. 


(or a :a 0 to Ingtha dlv 8 do bagln 

117. 


for 1 :a0 to ido 

1 la . 


Rbytaa <a*8. y-i. 1. SoallCl]) 

119. 


for i :a 0 to 7 do bagln 

120 . 


b :a bit <6,j) * 84 + 

121 . 


bit (S . } > * 32 + 

122 . 


bit < 4 , 1 ) * 16 + 

123 . 


bit (3,1) * 8 + 

124 . 


bl t ( 2 , 1 > * 4 + 

125 . 


bit (1,1) • 2 + 

126 . 


bl t < 0 , 1 > i 

127. 


1 f b a 3 than ap 1 1 < 3 ) i 

128 . 


■ pit (b> i 

129. 


and ; 

130 . 


and i 

131. 


■pit (3>i spit (14); 

132 . 


y y-7; 

133 . 


un til y < 0 ; 

134 . 
1 35 . 


and ; 

136 . 
1 37 , 

{ PRINT 

RIGHT WINDOW BORDER > 

1 38 . 


if prtypa - MXlOO than bagln 

139 . 


■pit (13); spit <10>i 

140 . 


■pit (aso); aplt (ord<'K')>i 

141 . 


■pit ((lngthy+2> mod 2S6); 

142 . 


■ pit ((Ingthyv-Z) dtv 2S6>; 

143 . 


(or y :a 0 to Ingthy+1 do aplt (-128); 

144 . 

145 . 


and i 

146 . 

(«P) 




V81XRF — Cross Rsfsrsnos Listing 
Fils ID; PRTVND.TEXT 


Novsmbsr 20 , 1962 

Psgs 4 


147 . 
1 46 . 

149 . 

150 . 

151 . 

152 . 

153 . 

154 . 

155 . 
154 . 
157 . 
1 Si . 
159 . 
140 . 
14 1. 

142. 

143. 

144 . 

145 . 
144 . 

147 . 

148 , 

149 . 

170 . 

171 . 
172. 

173 . 

174 

175 . 
174 . 

177 . 

178 . 

179 . 

180 . 
181 . 
162. 

183 . 

184 . 
IBS. 
184 . 

187 . 

188 . 


C NORMALIZE PRINTER ) 

11 prtyps ■ MXlOO thon bsgln 
spit <13>; spit (lQ>i 

spit (sso)i spit <ord('2'>>; spit (12)^ 
snd ; 

if prtyps ■ IDS thsn bsgln 

spit (3); spit <2>; snd; 

snd i 

writs <‘\lBo'); i CURSOR ON ) 
snd ; 


bsg i n 

CCwnd 10 i n 1 t ; 
pr t r : « 4 ; 
d 1 s p : ■ OSd 1 s pD V ; 
ourWnd :« pOSourVnd; 
pDsv ;• pOSdsvNsa <prtr>; 

If pDsvA <> 'PRINTER' thsn bsgln 

wrltsln <'Prlntsr drlvsr not losdsd ohr ( 7 >> < 

Slit < p r twnd ) ; 
snd ; 

prtyps :■ MX 100; 
if srgo <> 0 thsn bsgln 
prtyps NONE; 

for srgn :■ 1 to irgo do bsgln 

for 1 :■ 1 to isng t h< srg V C sr gn 3 A ) do 

If s r g V C s r gn 3 At i ] in thsn 

s r g V C s r gn 3 At 1 ] ;■ ohr < o r d ( s r g v C s r gn 3 a C 1 3 ) 

-ord( 's' >'ford( 'A' ) ) ; 

if srgvCsrgn3A ■ 'IDS' thsn prtyps :■ IDS; 

if srgvCsrgniA m 'MXlOO' thsn prtyps ;■ MXlOO; 
snd ; 

snd ; 

if prtyps <> NONE 
t hsn doit 

slss wrltsln <'lnvsiid printsr typs spsolfisd chr(7)>; 


snd 



VSIXRF — Crosa R*(*r«no* Lilting 
Fill ID. PRTWND.TEXT 


Novimbir 20 , 1982 

Pigi S 


0 

43 

44 

54 

58 

63 

64 

66 

94 

1 0 1 

107 

1 16 


1 17 

1 1 9 

126 

133 

143 

171 






1 

54 

66 

67 

66 

69 

70 

71 

7 2 

73 

94 

106 


1 0 7 

108 

1 1 1 

1 1 4 

1 1 6 

125 

143 

173 

174 



1 0 

102 

1 3 9 

150 









i '1 

151 











1 28 

66 

143 










1 3 

102 

139 

ISO 









i 4 

1 3 1 











1 6 

67 

122 










Z 

46 

68 

72 

92 

93 

104 

105 

124 

125 

141 

1 4 2 


154 











2Z6 

45 

4 6 

64 

92 

93 

104 

. 105 

1 4 1 

142 



2 7 

1 9 











3 

67 

86 

123 

127 

1 3 1 

154 






32 

68 

121 










4 

70 

7 1 

122 

124 








5 

71 

121 










6 

54 

SB 

72 

1 17 

1 2 0 

162 






6 4 

67 

120 










7 

37 

73 

1 1 9 

132 

167 

184 






8 

70 

84 

101 

108 

1 16 

lie 

123 





ARGC 

171 

173 










ARGN 

26 

173 

174 

175 

176 

178 

179 





ARGV 

174 

175 

176 

178 

179 







B 

53 

54 

57 

6 1 

63 

64 

66 

67 

68 

69 

70 


7 1 

72 

73 

106 

109 

120 

127 

126 




BIT 

60 

63 

66 

67 

68 

69 

70 

7 1 

72 

73 

120 


1 2 1 

122 

123 

124 

125 

126 






BUFFPTR 

40 

48 










BYTE 

53 

57 

56 









BYTECOUNT 

39 

47 










CCOEFN 

1 7 











CCWNDIO 

1 7 











CCWNDIOINI 

161 











CELL 

58 

63 

118 









CHR 

43 

46 

167 

176 

184 







COUNT 

36 

47 










CURWND 

27 

79 

164 









DISP 

25 

49 

163 









DI V 

45 

46 

66 

67 

68 

69 

70 

7 1 

72 

93 

101 


105 

1 1 6 

142 









DOIT 

56 

183 










ESC 

1 9 

84 

91 

103 

140 

151 






I 

26 

57 

60 

63 

117 

lie 

174 

175 

176 



IDS 

21 

85 

1 13 

153 

17B 







J 

57 

60 

65 

119 

120 

121 

122 

123 

124 

125 

126 

LENGTH 

174 











LNGTHX 

101 

1 16 










LNGTHY 

92 

93 

94 

104 

105 

107 

114 

141 

142 

143 


MOD 

45 

46 

92 

104 

14 1 







MXl 00 

2 1 

83 

90 

100 

138 

149 

170 

179 




N 

33 











NONE 

2 1 

172 

182 
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Fll* ID: FRTWND.TEXT 









Faga 4 

ODD 

66 

67 

68 

69 

70 

71 

72 

73 




ORD 

B4 

9 1 

103 

1 40 

151 

176 

177 





OSDIBFDV 

34 

163 










FBUFF 

36 

44 

48 









FBYTEB 

36 

40 










FDEV 

28 

165 

166 









POBCURWND 

32 

164 










FOBDEVNAM 

33 

165 










PRTR 

24 

162 

165 









PRTRID 

21 

23 










PRTWND 

15 

168 










PRTYPE 

23 

83 

85 

90 

100 

113 

138 

149 

153 

1 70 

172 


178 

179 

182 









F8TRINC80 

28 

33 










FWKDRCD 

27 

32 










RBYTEB 

36 

44 

108 

1 1 8 








RDBYTE8 

37 

49 










8PIT 

S3 

84 

86 

91 

92 

93 

94 

102 

103 

104 

lOS 


106 

109 

1 1 1 

127 

128 

131 

139 

140 

141 

142 

143 


130 

151 

154 









UNITBTATUB 

49 











UNITWRITE 

54 











WBUF 

38 

47 

48 

49 








X 

36 

45 

57 

101 

106 

116 

lie 





Y 

36 

43 

46 

57 

94 

107 

108 

114 

118 

132 

133 


143 













NOTE 


THE FOLLOWING PAGES CONTAIN THE CORVUS CONCEPT 
KEYBOARD TRANSLATION TABLES. 
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1 . 0 Overview 

This document describes the Keyboard Translation Tables and how 
to build them. These tables are used by the keyboard driver to 
generate the character sequences corresponding to the key pressed 
by the user. If a different set of key caps are used or a 
different set of character codes are desired then new Translation 
Tables must be built and loaded into the system. This document 
describes how to perform those operations. 


2.0 The Keyboard and Keycodes 

The keyboard is connected to the computer by a transmission line. 
Through the line< the keyboard sends keycodes describing which 
key has been pressed or released. These keycodes in conjunction 
with the Translation Tables are used to generate the character 
sequences produced by the keyboard driver. Some keys, like the 
Shift key, affect which characters are generated when other keys 
are pressed. Some keys cause character sequences to be 
generated. What happens when a key is pressed or release is 
determined by the Translation Tables. 

Keycodes are 8 bits of data, a byte, sent by the keyboard to 
inform as to which key has been affected and whether it has been 
pressed (closure) or released. Every key on the Concept keyboard 
generates 2 keycodes, which differ only by the most significant 
bit (MSB) of the keycode byte. If the MSB is set (1) then it is 
the closure. If the MSB is clear (0) then it is the release. 

The actual character sequence used for a key, whether pressed or 
released, is determined by decoding the keycodes using the 
Translation Tables. The keyboard was designed to generate 
keycodes instead of character sequences which makes the keyboard 
flexible. By changing the Translation Tables, one can alter 
the keyboard character set. 

In order to build the Translation Tables a Keycode map is needed. 
This map shows the keycode values for every key on the keyboard. 
Figure 1 is a Keycode Map for the current keyboard (Version 04, 
Selectric (R) style keyboard). Normally, the key caps show which 
character is generated for each keycode transmitted to the 
keyboard driver. Figure 2 is a key cap map for this same 
keyboard. 

Version 04 keyboard key caps have either 1 or 2 symbols on them. 

A single symbol key cap specifies that the character is the same 
when it is either shifted or unshifted, except for the alphabet 
characters which get lower case if unshifted. Key caps with two 
symbols have the character for the lower symbol when unshifted 
and the character for the upper symbol when shifted. 
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Keycode Map (release code) 


Figure 
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3.0 Translation Tables 

The Translation Tables must be defined in an assembly language 
program/ like the program CSK. RFV4. TEXT listed in section 6.0. 
This program is actually a group of Tables. The first Table is 
TRANTBL which points to seven the Translation Tables. 

The seven entries in this table point to the Translation Tables 
in the following order: 

1) SHIFT_TABLE (STABLE) 

2) REGULAR_ TABLE (NLTABLE) 

3) ESCAPE # SEQUENCE TABLE (ETABLE) 

4) STANDARD MULTIPLE CHARACTER SEQUENCE TABLE (SMTABLE) 

5) CAPS. QUALIFIER FLAG TABLE (CQTABLE) 

6) RELEASE TABLE (RLTABLE) 

7) BREAK, KEYCODE TABLE (BKEYCOD) 

These entries must be in the above order. 


3 1 SHIFT TABLE (STABLE) 


This table contains one byte for each keycode $00 - $5F. The 
byte is normally the character code for the specified keycode 
when the SHIFT key is depressed. Four special byte values are 
used: 


9E -- use STANDARD MULTIPLE CHARACTER SEQUENCE TABLE (SMTABLE). 
9F - use CAPS QUALIFIER FLAG TABLE (CQTABLE). 

9D - use ESCAPE # SEQUENCE TABLE (ETABLE). 

00 - no character for this keycode. 


3. 2 REGULAR TABLE (RLTABLE) 

This table contains one byte for each keycode $00 - $5F. The 
byte is normally the charater code for the specified keycode when 
the SHIFT key is not depressed. Four special byte values are 
used: 

9E - use STANDARD MULTIPLE CHARACTER SEQUENCE TABLE (SMTABLE). 
9F - use CAPS QUALIFIER FLAG TABLE (CQTABLE). 

9D - use ESCAPE # SEQUENCE TABLE (ETABLE). 

00 - no character for this keycode. 


3. 3 ESCAPE # SEQUENCE TABLE (ETABLE) 

This table is used when a table code of $9D is found in key 
closure or a table code of $9D is found in key SHIFT TABLE 
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(STABLE) or the REGULAR TABLE (RLTABLE). It specifies a key 
which has an ESC # character sequence. Each keycode may have a 
different character based on the state of the two qualifier keys 
(SHIFT and COMMAND). 

Each table entry has the form (entry length = 10 bytes) 

1 ) Keycode (1 byte). 

2) filler byte : its value is O (1 byte). 

3) UnSHIFTed UnCOMMANDed (2 bytes). 

4) SHIFT only (2 bytes). 

5) COMMAND only (2 bytes). 

6) COMMAND & SHIFT together (2 bytes). 

Values for the version 04 keyboard: 


KEYCODE 1 FILL 

US/UC 1 S only 1 C only 1 C/S 1 KEY NAME 



*20 

00 

00 

OA 

14 

IE 

Function 

key 

1 

*21 

00 

oi 

OB 

15 

IF 

Func t i on 

key 

e. 

*22 

00 

02 

OC 

16 

20 

Function 

key 

3 

*23 

00 

03 

OD 

17 

21 

Function 

key 

4 

*24 

00 

04 

OE 

IS 

22 

Function 

key 

5 

*4A 

00 

FF 

FF 

FF 

FF 

COMMAND 

( C 1 0 

*3ur 

*58 

00 

05 

OF 

19 

23 

Function 

key 

6 

*59 

00 

06 

10 

lA 

24 

Func t ion 

key 

7 

*5A 

00 

07 

1 1 

IB 

25 

Function 

key 

8 

*5B 

00 

OS 

12 

1C 

26 

Function 

key 

9 

*5C 

00 

09 

13 

ID 

27 

Func t i on 

key 

10 

*CA 

00 

FE 

FE. 

FE 

FE 

COMMMAND 

( r e 1 ea 


3. 4 STANDARD MULTIPLE CHARACTER SEQUENCE TABLE (SMTABLE) 

This table is used on key closure when a *9E table code is in the 
SHIFT TABLE (STABLE) or REGULAR TABLE (RLTABLE). Every entry 
with a *9E table code in the STABLE or RLTABLE must be in this 
tab 1 e. 

Each entry is composed of 3 fields. 1) the keycodei 2) the string 
length, and 3) the actual string. The string is the sequence of 
character codes placed in the buffer for this key. The Table 
does not have to be in keycode order. The table ends with a 
special keycode of *FF and length of 0. 
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Values for the version 04 keyboard: 


KEYCODES 1 STRING LENGTH 1 STRING 


— 







*00 

(cursor 

right) 

2 

»1B 

*43 

( esc 

C ) 

*03 

(HOME 
up ) 

2 

*1B 

*48 

(esc 

H) 

*07 

( enter ) 

2 

♦ 13 

*64 

(esc 

d ) 

*08 

(cursor: 
lef t ) 

2 

SIB 

*44 

( esc 

D) 

*0B 

( c ur sor 
d ou/n ) 

2 

*ia 

*42 

( esc 

B ) 

*3A 

(back 
tab ) 

2 

*1B 

*69 

( esc 

i ) 

*5D 

(cursor 
up ) 

2 

SIB 

*41 

(esc 

A) 

*4E 

(double 

zero) 

2 

S30 

*30 

(00) 


*FF 


0 

END 

OF THE TABLE 


3 5 CAPS LOCK i- QUALIFIER FLAG TABLE (CQTABLE) 

This table contains one byte for each keycode *00 - *5F. The 
Keycode is a direct index into the table. Each byte is a set of 
flags All unused bits must be cleared (value = 0). The high 
order bit is the Caps lock flag for the corresponding Keycode. 

If the bit is set. this keycode generates a shifted character if 
the CAPS LOCK key is locked. Bit 6 is a special COMMAND key 
flag The remaining bits are special key qualifier flags 

The bits currently defined are : 

7 - Caps lock flag uhen set means this keycode generates a 
shifted character uihen Caps lock is locked. 

6 - Special COMMAND key flag; 

■ uses ETABLE for closure - keycode high order bit 
c 1 osur e 

■ uses ETABLE for release - keycode has high order bit 
set 

■ special non-repeating key. 
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5 - Command - 
4 - Alternate 
3 - Fast 
2 - Caps lock 
1 - Control 
0 - Shift 


These bit indicate iDhich type of 
special key the keycode represents. 
At most/ one bit can be set on. 


The values for the version 04 keyboard are listed in the attached 
program CSK. REV4. TEXT/ listed in section 6.0. 


3. 6 RELEASE TABLE (RLTABLE) 

This table specifies ujhich keycodes have an action on key 
release. Each table has 2 fields. 1) the keycode/ and 2) the 
action code. 

The action code has 3 possible value types. If the action code is 
*9D it specifies a key a/ith a ESCAPE # SEQUENCE TABLE (ETABLE) 
entry. If the action code is *9E it specifies a qualifier 
keycode. Any other action code is a character code to be placed 
into the buffer. The end of the table is specified by a special 
keycode of *FF and an action code of $00. 

Values for the version 04 keyboard: 


KEYCODE 

ACTION CODE 

KEY NAME 

$1F 

$9E 

Right SHIFT 

$3C 

$9E 

CAPS LOCK 

$3E 

$9E 

Left SHIFT 

$48 

$9E 

Control (CTRL) 

$49 

$9E 

FAST 

$4A 

$9E 

COMMAND 

$4C 

$9E 

Alternate (ALT) 

$FF 

$00 

NULL keycode - END OF TABLE 


' 3. 7 BREAK KEY CODE TABLE (BKEYCOD) 

This table consists of one byte. It is the Keycode for the key 
uihich performs the start/stop toggle. The value for the version 
04 keyboard is : $DF. This is the Keycode for BREAK closure. 
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4.0 Translation Table examples 

This section gives the user several examples of houi to change the 
Keyboard Tranlation tables. The examples deal (uith the unmarked keg on 
the top roui of keys (keycode $5E:>. 

4. 1 Alphabetic character example 

The first example is to use the unmarked key (keycode *3E) as a standard 
alphabetic character key. This involves setting a value in the 
Translation Tables for the unshiftedi shifted/ and qualifier cases of 
the key. 

A. These tables use the keycode value as an offset into the tables 
Locate the unmarked key on the keyboard and note the position 
Locate the same key in the keycode chart and note the keycode for 
closure (5E). 

B. For this example let us assume the desired output of the 
Translations Tables is to be the alphabetic character 't' for 
unSHIFTed. 'T' for SHIFTed, and 'T' for CAPS LOCK. 

C. Create a file uilth the same tables as the program CSK. REV4 TEXT. 
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D. Locate the position SE in the SHIFT Table. Note that the current 
entry is 9F hex uihich indicates the key is a qualifier. In this 
example the SHIFT Table entry uill be changed to a 'T' or 54 hex. 

Edit the STABLE at postion SE hex to contain the value 54 hex. 

THE SHIFT TABLE 

THE SHIFT TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCODE. 

The character symbol is above each character code 

SMC = special value for Standard Multiple Character Sequence 
QUL == special value for Qualifier 

EST = special value for Escape Sharp Character Sequence 
= No key for this keycode 

STABLE 

SMC 3 9 SMC 6 . - cr SMC 1 7 SMC 4 B 5 2 i MSB 

DATA B *9E, »33, »39, *VE, »36, *2C. *2D- »OD, *9E, *31, *37, *9E, *34, *38, *35, *3Z i *00 
+ . <delcr> I ... ) ? P _ ; ' '' QUL 

DATA B *2B, *00, *7B, *7F, *0D, *7D, *7C, *00, *29, *3F, *50, *5F, *3A, *7E, *22, *9F i*10 

EST EST EST EST EST * 7. R T F G V B 

DATA B *9D, *9D, *9D, *90, *9D, *00, *00- *00, *24, *25, *52, *54, *46- *47, *56, *42 i *20 
etkWESDXC esc ! SMC Q QUL A QUL Z 

DATA. B *40, *23, *57, *45, *53, *44, *58, *43, *1B, *21, *9E, *51, *9F, *41, *9F, *5A i *30 

V U H J N M QUL QUL QUL sp QUL O SMC 

DATA B »5E, *26, *59, *55, *48. *4A, *4E, *4D, *9F, *9F, *9F, *20, *9F, *30, *9E, *2E i *40 

* ( I 0 K L <: :> EST EST EST EST EST SMC QUL QUL 

DATA B *2A, *28, *49, *4F, *4B, *4C, *3C, *3E, *9D, *9D, *9D, *9D, *9D, *9E, *9F, *9F i *50 

LSB 01234567B9ABCDEF 


Change the last line to the following: 

* ( I O K L < :> EST EST EST EST EST SMC T QUL 

DATA. B *2A, *28, *49. *4F, *4B, *4C, *3C, *3E, *9D, *9D, *9D, *‘»D, *9D, *9E, *54, *9F ; *50 
LSB 01234567B9ABCDEF 


<*9E) 

(*9F> 

(*9D) 
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E. Locate the position 9E In the REGULAR Table. Note that the current 
entry Is 9F hex uihich indicates the key is a qualifier. In this 
example the REGULAR table entry (Kill be changed to a 't' or 74 hex. 

Edit the RTABLE at position 9E hex to contain the value 74 hex. 

THE REGULAR TABLE - UNSHIFTED OR LOWER CASE 

THE REGULAR TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCODE. 

The character symbol is above each character code 

sue • special value for Standard Multiple Character Sequence 
QUL = special value for Qualifier 

EST " special value for Escape Sharp Character Sequence 
... > No key for this keycode 

RTABLE 

SMC 3 9 SMC 6 . - cr SMC 1 7 SMC 4 8 9 2 i MSB 

DATA. B *9E. *33. *39. *9E. *36. *2C. *2D. *OD. *9E. *31. *37. *9E. *34. *38. *39. *32 i *00 
«... C bscrl \ ... 0 / p - i ' ' QUL 

DATA. B *3D. *00. *9B. *08. *0D. *50. *9C. *00. *30. *2F. *70. *2D. *3B. *60. *27. *9F i *10 

EST EST EST EST EST 4 3 r t f g v b 

DATA. B *9D. *9D. *9D. *9D. *9D, *00. *00. *00. *34. *39. *72. *74. *66. *67, *76, *62 i *20 
23(Kesd xc esc 1 SMC q QUL a QUL i 

DATA. B *32, *33, *77, *69, *73, *64, *78, *63, *1B, *31, *09, *71, *9F, *61, *9F, *7A i *30 
67yuh jnm QUL QUL QUL sp QUL 0 SMC 
DATA. B *36, *37, *79, *79, *68, *6A, *6E, *6D, *9F. *9F, *9F, *20, *9F, *30, *9E, *2E : *40 

8 9 i o k 1 , . EST EST EST EST EST SMC QUL QUL 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, *9D, *9D, *9D, *9D, *9E, *9F, *9F ; *90 

LSB 0123496789ABCDEF 

Change the last line to the folloiKing: 

8 9 i o k 1 , EST EST EST EST EST SMC t QUL 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, *9D, *9D, *9D, *9D, *9E, *74, *9F ; *90 
LSB 0123496789ABCDEF 


(*9E) 
( *9F ) 
(*9D) 
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F. Locate the position 9E in the CAPS/QUALIFIER Table. Note that the 
current entry is 00 hex uihich indicates the key does not have any 
flags set in the CAPS/QUALIFIER Table. In this example the 
CAPS/QUALIFIER Table entry mill be changed to a 80 hex. to set the 
Caps lock flag in the table. Edit the CQTABLE at position 9E hex to 
contain the value 80 hex. 

THE CAPS/QUALIFIER FLAG TABLE 

THE TABLE IS INDEXED BY KEYCQDE. EACH BYTE REPRESENTS THE ENTRY FDR 
THE CORRESPONDING KEYCODE. 


Each byte has 8 flags : 

07 a Caps lock flag : when set means this 
shifted character when the Caps lock 
D6 a Qualifier has an ESC sequence flag, 
the keycode as a non-repeating ESC # 
sequence. 


keycode generates a 
qualifier flag is set. 

Nhen set then must process 
sequence. Also has a Release 


D5 = Command 

D4 = Alternate I 

D3 = Fast I This bit says which type of Qualifier 

D2 - Caps lock I key the Keycode represents. 

D1 «= Control I 

DO = Shift 1 


CQTABLE 

DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
DATA. B 
LSB 


I MSB 

«00. »00. «00. »00, ifOO, *00. »00. »00, *00. *00. *00. *00. *00. *00. *00. *00 I *00 

*00. *00. *00. *00. *00. *00. *00. *00. *00. *00. *80. *00. *00. *00. *00. *01 i *10 

*00. *00, *00. *00. *00. *00. *00. *00. *00. *00. *80. *80. *80. *80. *80. *80 i *20 

*00. *00. *80. *80. *80. *80. *80. *80. *00. *00. *00. *80. *04. *80, *01. *80 i *30 

*00. *00. *80. *80. *80. *80. *80. *80. *02. *08, *60, *00, *10, *00, *00, *00 I *40 

*00, *00, *80, *80, *80, *80, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *90 

0123496789ABCDEF 


Change the last line to the following: 


DATA. B 
LSB 


*00, *00. *80, *80, *80. *80. *00, *00, *00, *00. *00, *00. *00, *00, *80, *00 
0123496789ABCDEF 


I *90 
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G. S«ve the edited version of the Keyboard Translation Tables to a test 
file. Assemble the file as follouis; 

ASM68K filename [RETURN 1 

Upon completion of the assembly< link the file for quick load as 
follouis: 

LINKER filename [RETURN] 

The last step is to load the neui Keyboard Translation Table. 


Press [WndouiMgrl. 

Press [LdKybdCh], 

Enter the filename. [RETURN]. 

A successful load of the tables uiill be noted in the Command Line, 
testing the results of the neui tables by pressing the unmarked key. 
the SHIFT key and the CAPS LOCK key and note the results. 


Beg in 
Use 
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4. 3 STANDARD MULTIPLE CHARATER TABLE MODIFICATION 

This example deals ulth the modification of the STANDARD MULTIPLE 
CHARACTER SEQUENCE TABLE. The Translation Tables uilll now be modified 
to use the unmarked key (keycode 3E) as Cursor Right. 

A. Create a file uith the same entries as the CSK. REU4. TEXT fils. 

B Locate the STANDARD MULTIPLE CHARACTER SEQUENCE TABLE within the file. 
It should be as follows: 


STANDARD MULTIPLE CHARACTER SEQUENCE TABLE 

FORMAT : ( KEYCODE, LENGTH, CHARACTER_SEQUENCE > 


The LENGTH field is the number of characters in the CHARACTER SEQUENCE field. 
The CHARACTER SEQUENCE is the characters to return for the Keycode. 


SMTABLE 

KEYCODE 

length 

CHARACTER SEQUENCE 



DATA, B 

*00, 

3, 

*1B, *43 

(CURSOR RIGHT 


DATA. B 

*03, 

3, 

*1B, *48 

i HOME UP 


DATA. B 

*07, 

3, 

*1B, *64 

i ENTER 


DATA. B 

*08, 

3, 

*1B, *44 

! CURSOR LEFT 


DATA. B 

*0B, 

3, 

»1B, *43 

1 CURSOR DOWN 


DATA. B 

*3A, 

3, 

*1B, *67 

i BACK TAB 


DATA. B 

*3D, 

3, 

*1B, *41 

: CURSOR UP 


DATA. B 

*4E, 


*30, *30 

(DOUBLE ZERO-I 

00 KEY ) 

DATA. B 

*FF, 

0 


( NULL KEYCODE 

- END OF TABLE 


C. Enter a 

duplication of 

the first entry in the 

table as the last 

entry 

in the 

tab le. 

Change 

the KEYCODE from *00 to 

*3E. The unmarked 

key is now 

defined 

as CURSOR RIGHT. 




SMTABLE 







KEYCODE 

LENGTH CHARACTER SEQUENCE 




DATA. B 

*00, 

3, 

*1B, *43 


CURSOR RIGHT 


DATA. B 

*03, 

3, 

«1B, *48 


HOME UP 


DATA. B 

*07, 

3, 

*1B, *64 


ENTER 


DATA. B 

*08, 

3, 

*1B, *44 

( CURSOR LEFT 


DATA. B 

*0B, 

3, 

*1B, *43 


CURSOR DOWN 


DATA. B 

*3A, 

3, 

*1B, *67 


BACK TAB 


DATA. B 

*3D, 

3, 

*1B, *41 


CURSOR UP 


DATA. B 

*4E, 

3, 

• 30, *30 


DOUBLE ZERO-I 00 KEY ) 

DATA. B 

*3E, 

3, 

»1B, *43 


CURSOR RIGHT 


DATA. B 

*FF, 

0 



NULL KEYCODE - 

END OF TABLE 
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D, Locate the position 5E in the SHIFT Table. Note that the current 
entry is 9F hex uihich indicates the key is a qualifier. In this 
example the SHIFT Table entry ibill be changed to a hex. Edit 

the STABLE at postion 5E hex to contain the value 9E hex 

THE SHIFT TABLE 


THE SHIFT TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCQDE, 


The character symbol is above each character code 

SMC " special value for Standard Multiple Character Sequence 
QUL = special value for Qualifier 

EST = special value for Escape Sharp Character Sequence 
... "No key for this keycode 


(*9E) 
( ¥9K ) 
<$9D) 


STABLE 


SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 3 i MSB 

DATA. B *9E, *33. *39, *9E, *36, *2G, *2D, *OD, *9E, *31, *37, *9E, *34, *38, *35, *32 , *00 
+ ... {delcr> ' .. ) ? P _ " QUL 

DATA. B *2B, *00, *7B, *7F, *0D, *7D, *7C, *00, *29, *3F, *50, *5F, *3A, *7E, *22, *9F , *10 

EST EST EST EST EST * 7 . R T F G V B 

DATA. B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *24, *25, *52, *54, *46, *47, *56, *42 i *20 
Q#WESDXC esc ! SMC Q QUL A QUL Z 

DATA. B *40, *23, *57, *45, *53, *44, *58, *43, *1B, *21, *9E, *51, *9F, *41, »9F, *5A ; *30 

■'&Y UHJNM QUL QUL QUL sp QUL O SMC 

DATA. B *5E, *26, *59/ *55, *48, *4A, *4E, *4D, *9F, *9F, *9F, *20, *9F, *30, *9E, *2E ; *40 

* ( I O K L C :> EST EST EST EST EST SMC QUL QUL 

DATA, B *2A, *28, *49, *4F, *4B, *4C, *3C, *3E, *9D, *9D, *9D, *9D, *9D, *9E, *9F, *9F , *50 

LSB 0123456789ABCDEF 


Change the last line to the follouiing: 


* ( I □ K L <: > EST EST EST EST EST SMC SMC QUL 

DATA. B *2A, *28, *49, *4F, *4B, *4C, *3C, »3E, *9D, *9D, *9D, *9D, *9D, *9E, *9E, *9F / *50 
LSB 0 1 234 56789AB C DEF 
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E. Locate the poiition 3E in the REGULAR Table. Note that the current 
entry is 9F he« uhich indicates the key It a qualifier. In this 
enample the REGULAR table entry ulll be changed to a 9E hex. Edit 
the RTABLE at position 5E hex to contain the value 9E hex. 

THE REGULAR TABLE - UNSHIFTED OR LOWER CASE 

THE REGULAR TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCODE. 

The character symbol is above each character code 

sue “ special value for Standard Multiple Character Sequence 
QUL = special value for Qualifier 

EST = special value for Escape Sharp Character Sequence 
. . = No key for this keycode 

RTABLE 

SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 3 2 i MSB 

DATA. B *9E. *33, *39, *9E, *36, *2C, *2D, *OD, *9E, *31, *37, *9E, *34, *38, *33, *32 I *00 
=. C bscrl \... 0 / p - i ' ' QUL 

DATA. B *3D, *00, *3D, *08, *0D, *3D, *3C, *00, *30, *2F, *70, *2D, *38, *60, *27, *9F i *10 

EST EST EST EST EST 4 3 r t f g v b 

DATA B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *34, *33, *72, *74, *66, *67, *76, *62 i *20 

2 3 ki e s d X cescl SMC q QUL a QUL z 

DATA. B *32, *33, *77, *63, *73, *64, *78, *63, *1B, *31, *09, *71, *9F, *61, *9F, *7A f *30 

6 7 y u h j n m QUL QUL QUL sp QUL O SMC 

DATA B *36, *37, *79, *73, *68, *6A, *6E, *6D, *9F, *9F, *9F, *20, *9F, *30, *9E, *2E ! *40 

8 9 i o k 1 , EST EST EST EST EST SMC QUL QUL 

DATA B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, »9D, *9D, *9D, *9D, *9E, *9F, *9F i *30 

LSB 0123436789ABCDEF 


Change the last line to the follouing: 

B 9 i o k 1 , EST EST EST EST EST SMC SMC QUL 

DATA B *38, *39, *69, *6F, »6B, *6C, *2C, *2E, *9D, *9D, *9D, *9D, *9D, *9E, *9E, *9F ; *30 
LSD 01234367S9ABCDEF 


F Save, Assemble, Link, and Load as in the previous example. 


(*9E) 

(*9F> 

(*9D> 
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4. 3 ESCAPE SHARP SEQUENCE TABLE 

This Bxanipl* deals uiith the modification of the ESCAPE SHARP SEQUENCE 
TABLE. The Translation Tables uill noui be modified to use the unmarked 
key as the FUNCTION KEY 1. 

A. Create a file uiith the same entries as the CSK. REU4. TEXT file. 

B. Locate the ESCAPE SHARP SEQUENCE TABLE uiithin the file. It should be 
as follouis: 

ESCAPE SHARP (#) SEQUENCE TABLE 

FORMAT : (KEYCODE. FILLER, US/UC. SHIFT, COMMAND, C/S ) 

The fill field is added to keep each record on an even byte boundary 
The other fields contain the character sequence to folloui the ESCAPE tt 
characters; 

US/UC ~ uihen the Shift and Command key are released 
SHIFT “ when only the Shift key is still being pressed 
COMMAND “ uihen only the Command key is still being pressed 


C/S 

sa 

uihen the 

Shift 

and Command 

keys are 

still being pressed 


ETABLE 


KEYCODE 

FILL 

US/UC 

SHIFT 

COMMAND 

C/S 




DATA. 

B 

*20, 

0, 

'00', 

'OA', 

'14', 

'IE' 

FUNCTION 

KEY 

1 

DATA. 

B 

*21, 

0, 

'01 ', 

'OB', 

'13', 

'IF' 

FUNCTION 

KEY 

2 

DATA. 

B 

*22, 

0, 

'02 ', 

'OC ', 

'16', 

'20 ' 

FUNCTION 

KEY 

3 

DATA. 

B 

*23, 

0, 

'03 ', 

'OD', 

' 17 ', 

'21 ' 

FUNCTION 

KEY 

4 

DATA. 

B 

*24, 

0, 

'04 ', 

'OE', 

'IS', 

'22' 

FUNCTION 

KEY 

3 

DATA. 

B 

»4A, 

0, 

'FF', 

'FF', 

'FF', 

'FF' 

LEFT COMMAND 

(CLOSURE) 

DATA. 

B 

*38, 

0, 

'03', 

'OF', 

'19', 

'23' 

FUNCTION 

KEY 

6 

DATA. 

B 

*39, 

0, 

'06', 

'10', 

'lA', 

'24' 

FUNCTION 

KEY 

7 

DATA. 

B 

*3A, 

0, 

'07 ', 

'11 ', 

' IB ', 

'23' 

FUNCTION 

KEY 

S 

DATA. 

B 

»3B, 

0, 

'OB', 

'12', 

' 1C ', 

'26' 

FUNCTION 

KEY 

9 

DATA. 

B 

»3C, 

0, 

'09 ', 

'13', 

'ID', 

'27' 

FUNCTION 

KEY 

10 

DATA. 

B 

*CA, 

0, 

'FE', 

'FE', 

'FE', 

'FE' 1 LEFT COMMAND 

(RELEASE) 


C. Enter a duplication of the first entry in the table as the last entry 

in the table. Change the KEYCODE from *20 to *9E. The unmarked key is nc 
defined as FUNCTION KEY 1. 

ETABLE 



KEYCODE 

FILL 

US/UC 

SHIFT 

COMMAND 

C/S 




DATA. B 

*20, 

0, 

'OO ', 

'OA', 

'14', 

'IE' 

FUNCTION 

KEY 

1 

DATA. B 

*21, 

0, 

'01 ', 

'OB', 

'13', 

'IF' 

FUNCTION 

KEY 

2 

DATA. B 

*22, 

0, 

'02 ', 

'OC ', 

'16', 

'20' 

FUNCTION 

KEY 

3 

DATA. B 

*23, 

0, 

'03', 

'OD', 

'17', 

'21 ' 

FUNCTION 

KEY 

4 

DATA. B 

*24, 

0, 

'04 ', 

'OE', 

'IB', 

'22' 

FUNCTION 

KEY 

3 
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DATA. B 

«4A, 

0, 

'FF 

'FF', 

'FF', 

'FF' 

i LEFT COMMAND 

(CLOSURE) 

DATA. B 

«98. 

0, 

'OS', 

'OF', 

'19', 

'23' 

J FUNCTION KEY 

6 

DATA. B 

•39, 

0, 

'06 ', 

'10', 

' lA', 

'24' 

i FUNCTION KEY 

7 

DATA. B 

»SA, 

0, 

'07 ', 

'11 ', 

'IB', 

'23' 

i FUNCTION KEY 

a 

DATA, B 

• 9B, 

0, 

'08', 

'12', 

'1C', 

'26' 

; FUNCTION KEY 

9 

DATA. B 

»9C, 

0, 

'09', 

'13', 

'ID', 

'27' 

i FUNCTION KEY 

10 

DATA. B 

•9E. 

0, 

'00', 

'OA', 

'14', 

'IE' 

1 FUNCTION KEY 

1 

DATA. B 

»CA. 

0, 

'FE', 

'FE', 

'FE', 

'FE' 

iLEFT COMMAND 

(RELEASE) 



D. Locata the poaltion 3E In the SHIFT Table. Note that the current 
entry le 9F hex uhich indicates the key is a qualifier. In this 
example the SHIFT Table entry uiill be changed to a <P9D hex. Edit 
the STABLE at postion 3E hex to contain the value 9D. 

THE SHIFT TABLE 

THE SHIFT TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCODE. 

The character symbol is above each character code 

SMC “ special value for Standard Multiple Character Sequence 
QUL “ special value for Qualifier 

EST o special value for Escape Sharp Character Sequence 
... ■ No key for this keycode 

STABLE 

SMC 3 9 SMC 6 . - cr SMC 1 7 SMC 4 B 5 2 i MSB 

DATA. B *9E. *33, *39, *9E, *36, *2C, *2D, *OD, *9E, *31, *37, »9E, *34, *38, *33, *32 i *00 
+ . . . < del cr > ! . . . ) 7 P _ : ~ " QUL 

DATA. B *2B, *00, *7B, *7F, *0D, *7D, *7C, *00, *29, »3F, *30, *3F, *3A, *7E, *22, *9F ; *10 

EST EST EST EST EST * 7. R T F G V U 

DATA. B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *24, *23, *52, *34, *46, *47, *36, *42 ; *20 
eWHESDXC esc ! SMC Q QUL A QUL Z 

DATA. B *40, *23, *37, *43, *33, *44, *38, *43, *1B, *21, *9E, *31, *9F, *41, *9F, *3A f *30 

''«<YUHJNM QUL QUL QUL sp QUL 0 SMC 

DATA. B *3E, *26, *39, *33, *48, *4A, *4E, *4D, *9F, *9F, »9F, *20, *9F, *30, *9E, *2E i *40 

* ( I O K L < > EST EST EST EST EST SMC QUL QUL 

DATA. B *2A, *28, *49, *4F, *4B, *4C, *3C, *3E, *9D, *9D, *9D, *9D, *9D, «9E, *9F, *9F ; *30 

LSB 0123436789ABCDEF 


Change the last line to the following: 

* ( I 0 K L < > EST EST EST EST EST SMC EST QUL 

DATA. B *2A, *28, *49, *4F, *4B, *4C, *3C, *3E, »9D, *9D, »9D, *9D, *9D, *9E, *9D, *9F , *50 

LSB 0123436789ABCDEF 


(*9E) 
( *9F ) 
(*9D) 
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E. Locate the position 5E in the REGULAR Table. Note that the current 
entry is 9F hex uihich indicates the key is a qualifier. In this 
example the REGULAR table entry u/ill be changed to a $9D hex. Edit 
the RTABLE at position SE hex to contain the value 9D hex. 

THE REGULAR TABLE - UNSHIFTED OR LOWER CASE 

THE REGULAR TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE 
CHARACTER CODE FOR THE CORRESPONDING KEYCODE. 

The character symbol is above each character code 

SMC = special value for Standard Multiple Character Sequence 
QUL = special value for Qualifier 

EST s special value for Escape Sharp Character Sequence 
= No key for this keycode 

RTABLE 

SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 2 i MSB 

DATA. B *9E, *33, *39, *9E, *36, *2C, *2D, *OD, *9E. *31, *37, *9E, *34, *38, *35, *32 i *00 
=. C bscrl \. O / p - i ' ' QUL 

DATA. B *3D, *00, *5B, *08, *0D, *5D, *5C, *00, *30, »2F, *70, *2D, »3B, *60, *27, *9F i *10 

EST EST EST EST EST 4 5 r t f g V b 

DATA B »9D, *9D, *9D, *9D, *9D, *00, *00, *0O, *34, *35, *72, *74, *66, *67, *76, *62 i *20 

2 3 lii e s d X c esc 1 SMC q QUL a QUL z 

DATA B *32, *33, *77, *65, *73, *64, *78, *63, *1B, *31, *09, *71, *9F, *61, *9F, »7A i *30 

6 7 y u h j n m QUL QUL QUL sp QUL O SMC 

DATA B *36, *37, *79, *75, *68, »6A, *6E, *6D, »9F, *9F, *9F, *20, »9F, *30, *9E, *2E 1 *40 

8 9 i o k 1 , EST EST EST EST EST SMC QUL QUL 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, *9D, *9D, *9D, *9D, *9E, *9F, *9F i *50 

LSB 0123456789ABCDEF 


Change the last line to the folloulng: 

8 9 i o k 1 , EST EST EST EST EST SMC EST QUL 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, *9D, *9D, *9D, *9D, *9E, *9D, *9F i *50 
LSB 0123456789ABCDEF 


F Save, Assemble, Link, and Load as in the previous example. 


(*9E) 

(*9F) 

(*9D> 
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5.0 Default Keyboard Translation Table 

To make a Keyboard Translation Table the system default tablei put the 
linker out file for the Keyboard Translation Table into the volume 
/CCSYS/ with a file name of CSK. DEFAULT. 
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6.0 Program CSK. REV4. TEXT listing 


; THIS FILE CONTAINS THE TABLES FOR THE KEYBOARD DRIVER FOR THE VERSION 
i 04 KEYBOARD (Selectric style ASCII with ALT key and Back Space key 
'i moved from the version 3 location). 

i file : c s k . r ev4. text 

i date : 03-0ct-02 kb 

; TRANSLATION TABLE 

TRANTBL 

DATA. L STABLE - TRANTBL i POINTER TO SHIFT TABLE 

DATA. L RTABLE - TRANTBL I POINTER TO REGULAR TABLE 

DATA. L ETABLE - TRANTBL i POINTER TO ESCAPE # TABLE 

DATA. L SMTABLE- TRANTBL ; PTR TO STANDARD MULT CHAR TABLE 

DATA. L CQTABLE- TRANTBL I POINTER TO CAP/QUALIFIER TABLE 

DATA. L RLTABLE- TRANTBL J POINTER TO RELEASE TABLE 

DATA. L BKEYCOD- TRANTBL i POINTER TO BREAK KEYCODE TABLE 

i LENGTH OF FILE DATA AFTER TRANSLATION TABLE 

DATA. W LENGTH 

j 

i VERSION DATE 

VERSION DATA. B '070682' 

START R1S 

page 

I NOTE: 

■ All the tables have keycodes with the c losureXrelease bit (MSB) of the Keycod 
i clear (0)i except the Break Keycode Table. 

i THE SHIFT TABLE 

i TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE CHARACTER 

; CODE FOR THE CORRESPONDING KEYCODE. 

■ Used on Closure only when Shift key is being pressed (Shift flag is set), 
i The character symbol is above each character code 

i SMC = special value for Standard Multiple Character Sequence (*9E) 

i QUL ” special value for Qualifier («?F) 

i EST ~ spec ial. value for Escape Sharp Character Sequence (99D) 

i . . . • No key for this keycode 
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STABLE 

; SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 2; MSB 

DATA B *9E, *33, *39, *9E, *36, *2C, *2D, *OD, *9E, *31, *37, *9E, *34, *38, *35, *32 ; *00 

; +... Tdelcr> 1... ) ? P _ ~ " «UI. 

DATA. B *2B, *00, *7B, *7F, *0D, *7D, *7C, *00, *29, »3F, *50, *5F, *3A, *7E, *22, *9F ; *10 

; EST EST EST EST EST * 7. R T F G V B 

DATA. B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *24, *25, *52, *54, *46, *47, *56, *42 / *20 

i aitWESDXCesc! SMC Q QUL A QUL Z 

DATA. B *40, *23, *57, *45, *53. *44, *58, *43, *1B, *21, *9E, *51, *9F, *41, *9F, *5A ; *30 
i S< Y U H J N M QUL QUL QUL sp QUL O SMC 

DATA. B *5E, *26, *59, *55, *48, *4A, *4E, *4D, *9F, *9F, *9F, *20, *9F, *30, *9E, *2E i *40 

i » < I O K L ■ < > EST EST EST EST EST SMC EST EST 

DATA. B *2A, *28, *49, *4F, *4B, *4C , *3C, *3E, *9D, *9D, *9D, *9D, *9D, *9E, »9F, *9F ; *50 

; LSB 011!3456789ABCDEF 

page 

f 

i THE REGULAR TABLE -■ UNSHIFTED OR LOWER CASE 

i TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE CHARACTER 

1 CODE FOR THE CORRESPONDING KEYCODE. 

} 

i Used on Closure only uhen Shift key is released (Shift flag is clear). 

J 

; The character symbol is above each character code 

; SMC = special value for Standard Multiple Character Sequence (*9E) 

; QUL = special value for Qualifier (*9F) 

; EST = special value for Escape Sharp Character Sequence (*9D> 

; . , . = No key for this keycode 

RTABLE 

; SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 8 5 2; MSB 

DATA. B *9E, *33, *39, *9E, *36, *2C, *2D, *0D, *9E, *31, *37, «9E, *34, *38, *35, *32 ; *00 

; =... I bscr] \...0 / p - ; ' ' QUL 

DATA. B *3D, *00, *5B, *08, *0D, *5D, *5C, *00, *30, *2F, *70, *2D, *3D, *60, *27, *9F ; *10 

; EST EST EST EST EST 4 5 r t f g v b 

DATA. B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *34, *35, *72, *74, *66, *67, *76, *62 ; *20 

; 23uiesdxceecl SMC q QUL a QUL z 

DATA. B *32, *33, *77, *65, *73. *64, *78, *63, »1B, *31, *09, *71, *9F, *61, *9F, *7A ; *30 
; 67yuhjnm QUL QUL QUL sp QUL 0 SMC 

DATA. B *36, *37, *79, *75, *68, *6A, *6E, *6D, *9F, »9F, *9F, *20, *9F, *30, *9E, *2E ; *40 

; 8 9 i o k 1 , . EST EST EST EST EST SMC EST EST 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, *9D, *9D, *9D, »9D, *9D, *9E, *9F, *9F ; *50 

; LSB 01234567B9ABCDEF 

page 

i THE CAPS/QUALIFIER FLAG TABLE 

; TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 

; THE CORRESPONDING KEYCODE. 

; Used on Closure when a *9F is in the Keycode entry of the Shift or Regular 
; Table, process a Qualifier. Also on Closure ujhen the Caps Lock Key is 
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i being pressed (CapsLock flag is set). 

, Used on Release when a *9E action code is in the Kegcode entry of the Release 
y Table 

, Each byte has 8 flags : 

. D7 = Caps lock flag luhen set means this keycode generates a 

, shifted character when the Caps lock qualifier flag is set. 

D6 = Qualifier has an ESC # sequence flag. When set then must process 
. the keycode as a non-repeating ESC # sequence. Also has a Release 

. sequence. 

i D5 = Command 

I D4 = Alternate 

, D3 = Fast 

I D2 = Caps lock 

i Dl= Contra) 

. DO == iihift 

CQTABLE 

i MSB 

DATA B *00, *00, *00- *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *00 

DATA B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *00, *00, *00, *00, *01 ! *10 

DATA. B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *80, *80, *80, *80, *80 / *30 

DATA D *00, *00, *80, *80, *80, *80, *80, *80, *00, *00, *00, *80, *04, *80, *01, *80 ; *30 

DATA B *00, *00, *80, *80, *80, *80, *80, *80, *02, *08, *60, *00, *10, *00, *00, *00 ; *40 

DATA B *00, *00, *80, *80, *80, *80, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *50 

, LSB O 1 U 3 4 t, 6 7 8 9 A B C D E F 

page 

, ESCAPE SHARP<«) SEQUENCE TABLE 

, FORMAT : ( KEYCODE, F ILLER, US/UC , SHIFT, COMMAND, C /S ) 

; Used on Closure when a *9D is in the Keycode entry of the Shift or 
i Regular Table. 

, Used on Release ujhen a *9D action code is in the Keycode entry of 
i the Release Table. Release keycode has high order bit set. 

; The fill field is added to keep each record on an even byte boundary 
, The other fields contain the character sequence to follom the ESCAPE # 

. characters: 

, US/UC = u/hen the Shift and Command key are released 

i SHIFT = when only the Shift key is still being pressed 

, COMMAND = when only the Command key is still being pressed 

, C/S = when the Shift and Command keys are still being pressed 

STABLE 




KEYCODE 

FILL 

US/UC 

SHIFT 

COMMAND 

C/S 




DATA 

B 

*20, 

0, 

'00 ' , 

'OA', 

' 14S 

' IE ' 

i FUNCTION 

KEY 

1 

DATA 

B 

*21, 

0, 

'01 ', 

'OB ', 

'IDS 

'IF' 

i FUNCTION 

KEY 

2 

DATA, 

B 

*22, 

0, 

'02 ', 

'OC ', 


'20' 

; FUNCTION 

KEY 

3 

DATA. 

B 

*23, 

0, 

'03 ', 

'OD ', 

'17 

'21 ' 

; FUNCTION 

KEY 

4 

DATA 

B 

*24, 

0, 

'04 ', 

'OE ', 

'IB', 

'22' 

i FUNCTION 

KEY 

3 


This bit says which type of Qualifier 
key the Keycode represents. 
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DATA 

B 

*4A, 

0, 

'FF ', 

'FF ', 

'FF ', 

'FF' 

LEFT COMMAND 

(CLOSURF) 

DATA 

B 

*58, 

0, 

'05 ', 

'OF', 

' 19 ', 

'23' 

FUNCTION KEY 

6 

DATA. 

B 

*59, 

0, 

'06 ', 

' 10 ', 

' lA ', 

'24 ' 

FUNCTION KEY 

7 

DATA 

B 

*5A, 

0, 

'07 ', 

'11 ', 

' IB ', 

'25' 

FUNCTION KEY 

8 

DATA 

B 

*5B, 

0, 

'08 ', 

' 12 ', 

' 1C ', 

'26 ' 

FUNCTION KEY 

9 

DATA 

B 

*5C, 

0, 

'09 ', 

' 13 ', 

' ID ', 

'27 ' 

FUNCTION KEY 

10 

DATA. 

page 

B 

*CA, 

0, 

'FE ', 

'FE', 

'FE ', 

'FE' 

LEFT COMMAND 

(RELEASE) 


, STANDARD MULTIPLE CHARACTER SEQUENCE TABLE 
, ' FORMAT (KEYCODE, LENSTH, CHARACTER_SEQUENCE) 

i Used on Closure when a »7E is in the Keyccide entry of the Shift or 
y Regular Table. 

i The LENGTH field is the number of characters in the CHARACTER SEQUENCE field 
y The CHARACTER SEQUENCE is the characters to return for the Keycode 

SMTABLE 


KEYCODE LENGTH CHARACTER SEQUENCE 


DATA. E 

*00, 

2, 

*1B, *43 

CURSOR RIGHT 

DATA. B 

*03, 


*1B, *48 

HOME UP 

DATA. B 

*07, 

Pi 

*1B, *64 

ENTER 

DATA B 

*08, 

2. 

*1B, *44 

CURSOR LEFT 

DATA B 

»0B, 

2. 

«1B, *42 

CURSOR DOWN 

DATA. B 

*3A, 

2, 

*1B, *69 

BACK TAB 

DATA B 

*5D, 


*1B, *41 

CURSOR UP 

DATA B 
DATA. B 
page 

*4E, 

*FF, 

'-i 

0 

*30, *30 

DOUBLE ZERO-C 00 KEY ) 

NULL KEYCODE - END OF TABLE 


RELEASE TABLE 

FORMAT : ( KEYCODE , ACTION CODE > 

Used on all Release keycodes 


The action code describes the type of key: 

RD = return an Escape Sharp Sequence for this 
9E = a Qualifier key 
all other = character code to return 


keycode 


RLTABLE 

, KEYCODE ACTION CODE 


DATA 

D 

*1F, 

*9E 

DATA 

B 

*3C, 

*9E 

DATA 

B 

*3E, 

*9E 

DATA 

B 

»4B, 

*9E 

DATA 

B 

*49. 

*9E 

DATA 

B 

*4A, 

*9E 

DATA 

B 

*4C, 

*9E 

DATA 

B 

*FF, 

*00 


RIGHT SHIFT 
CAPS LOCK 
LEFT SHIFT 
CONTROL 
FAST 

LEFT COMMAND 
ALTERNATE 

NUt.L KEYCODE - END OF TABLE 



i BREAK KEYCQDE TABLE 

i SINGLE BYTE TABLE. THIS IS THE KEYCODE WHICH CAUSES START/STDP. 

i Used on all keycodes. 

i The filler is to keep the file on an even bgte boundary 

BKEYCOD DATA. B *DF, 0 i BREAK CLOSURE KEYCODE, FILLER 

LENGTH EQU '/.-VERSION (LENGTH OF DATA AFTER TRANSLATION TABLE 

END S1ART 


a7 





7,0 Program CSK. DANSK listing 


; THIS FILE CONTAINS THE TABLES FOR THE KEYBOARD DRIVER FOR THE VERSION 
; 04 Danish KEYBOARD (Seloctric style uiith ALT key). 

i NOTE; 

1 Because this document uias printed on a standard ASCII printer, 
i special Danish characters are printed as ASCII characters. 

; file : csk. dansk. text 

, date : 05-0ct-B2 kb 

i TRANSLATION TABLE 

TRANTBL 

DATA. L STABLE - TRANTBL ; POINTER TO SHIFT TABLE 

DATA. L RTABLE - TRANTBL (POINTER TO REGULAR TABLE 

DATA. L STABLE - TRANTBL ; POINTER TO ESCAPE # TABLE 

DATA. L SMTABLE- TRANTBL i PTR TO STANDARD MUL.T CHAR TABLE 

DATA. L CQTABLE- TRANTBL (POINTER TO CAP/QUALIFIER TABLE 

DATA. L RLTABLE- TRANTBL (POINTER TO RELEASE TABLE 

DATA L BKEYCOD- TRANTBL ( POINTER TO BREAK KEYCODE TABLE 

( LENGTH OF FILE DATA AFTER TRANSLATION TABLE 

DATA. W LENGTH 

( VERSION DATE 

VERSION DATA. B '0D1082' (ddmmyy - day month year 

START RTS 

page 

( NOTE: 

( All the tables have keycodes with the closure/release bit (MSB) of the 
( Keycode clear (0). except the Break Keycode Table. 

( THE SHIFT TABLE 

( TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE CHARACTER 

( CODE FOR THE CORRESPONDING KEYCODE. 

( Used on Closure only when Shift key is still depressed (Shift flag is set) 
( 

( The character symbol is above each character code 

( SMC = special value for Standard Multiple Character Sequence (SRE) 

( QUL = special value for Qualifier (*9F) 

( EST = special value for Escape Sharp Character Sequence (*9D) 
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/ , . . = No key for this keycode 

STABLE 

i SMC 3 9 SMC 6 , - cr SMC 1 7 SMC 4 S 5 2; MSB 

DATA. B »9E, *33, *39- *9E, *36, *2C, *2D, *OD, *9E, *31, *37, *9E, *34, *38, *35, *32 ; *00 

,' + del cr 7 P L S R ClUL 

DATA. B *2B, *00, *22- *7F, *0D, *3A, *7E, *00, *29, *3F, *50, *’5>, *SB, *5D, *5C, *9F ; *10 

; EST EST EST EST EST * X R T F G V B 

DATA. B *9D, *9D, *9D- *9D, *9D, *00, *00, *00, *24, *25, *52, *54, *46, *47, *56- *42 ; *20 

; e#WESDXC esc ! SMC Q QUL A QUL Y 

DATA. B *40, *23, *57, *45, *53, *44, *58, *43, *1B, *21, *9E, *51, *9F, *41, *9F, *59 ; *30 
; ' «<ZUHJNM QUL QUL QUL sp QUL 0 SMC 

DATA. B *5E, *26, *5A- *55, *48, *4A, *4E, *4D, *9F, *9F, *9F, *20- *9F, *30, *9E, *2E i *40 

i * ( I 0 K L < > EST EST EST EST EST SMC EST EST 

DATA. B *2A, *28, *49, »4F, *4B, *4C, *3C, *3E, *9D, *9D, *9D, »9D, *9D- *9E, S9F, *9F - *50 

i LSB 0123456789ABCDEF 

page 

i 

i THE REGULAR TABLE - UNSHIFTED OR LOWER CASE 

; TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE CHARACTER 

; CODE FOR THE CORRESPONDING KEYCODE. 

i 

> Used on Closure only uihen Shift key is released (Shift flag is clear). 

; 

I The character symbol is above each character code 

i SMC = special value for Standard Multiple Character Sequence 

i QUL = special value for Qualifier 

i EST « special value for Escape Sharp Character Sequence 

; . . . = No key for this keycode 

} 

RTABLE 

; SMC '3 9 SMC 6 , - cr SMC 1 7 SMC 4852 ; MSB 

DATA. B *9E, *33, *39, *9E, *36, *2C , *2D, *0D, *9E, *31, *37, »9E, *34, *38, *35, *32 ; *00 
i “... ' bscr; '...O / p - 1 s r QUL 

DATA. B *3D, *00, *27, *08, *0D, *3B, *60, *00, *30, *2F, *70, *2D, *7B, *7D, *7C, *9F ; *10 

; EST EST EST EST EST 4 5 r t f g v b 

DATA. B *9D, *9D, *9D, *9D, *9D, *00, *00, *00, *34, *35, *72, *74, *66, *67, *76, *62 ; *20 

; 23uiesdxc esc 1 SMC q QUL a QUL y 

DATA. B *32, *33, *77- *65, *73, *64, *78, *63, »1B, *31, *09, *71, *9F, *61, *9F, *79 ; *30 
i 6 7 I u h j n m QUL QUL QUL sp QUL 0 SMC 

DATA. B *36, *37, »7A, *75, *68, *6A, *6E, *6D, *9F, *9F, *9F, *20, *9F, *30, *9E, *2E ; *40 
; 8 9 i o k 1 , . EST EST EST EST EST SMC EST EST 

DATA. B *38, *39, *69, *6F, *6B, *6C, *2C, *2E, »9D, *9D, *9D, *9D, *9D, *9E, *9F, *9F ; *50 
; LSB 0123456789ABCDEF 

page 

i THE CAPS/QUALIFIER FLAG TABLE 

i TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 

,■ THE CORRESPONDING KEYCODE. 


(*9E) 
( *9F ) 
(*9D) 
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i Used on Closure when a $9F is in the Keycode entry of the Shift or Regular 
i Table, process a Qualifier. Also on Closure uihen the Caps Lock Key is 

i being pressed (CapsLock flag is set). 

, Used on Release when a *9E action code is in the Keycode entry of the Release 
i Table. 

; Each byte has 8 flags 

i D7 = Caps lock flag when set means this k ey c od e ' g ener a t es a 

, shifted character when the Caps lock qualifier flag is set. 

, D6 = Qualifier has an ESC # sequence flag. When set then must process 

, the keycode as a non-repeating ESC # sequence. Also has a Release 

, sequence. 

, D3 = Command 

, D4 = Alternate 1 

, D3 = Fast i This bit says which type of Qualifier 

/ D2 = Cap<ilock ! key the Keycode represents. 

: D1 = Control 1 

; DO - Shift ! 

CQTABLE 

i MSB 

DATA B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *00 

DATA. B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *00, *00, *00, *00, *01 i *10 

DATA B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *80, *80, *80, *80, *80 i *20 

DATA. B *00, *00, *80, *80, *80, *80, *80, *80, *00, *00, *00, *80, *04, *80, *01, *80 ; *30 

DATA B *00, *00, *80, *80, *80, *80, *80, *80, *02, *08, *60, *00, *10, *00, *00, *00 i *40 

DATA B *00, *00, *80, *80, *80, *80, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *50 

, LSB 0 1234D6787ABC DEF 

page 

; ESCAPE SHARPi#) SEQUENCE TABLE 

; FORMAT : < KEYCODE, FI LLER, US/UC, SHIFT, COMMAND, C /S ) 

, Used on Closure when a *9D is in the Keycode entry of the Shift or 
1 Regular Table 

i Used on Release when a *9D action code is in the Keycode entry of 
/ the Release Table Release keycode has high order bit set. 

i The fill field is added to keep each record on an even byte boundary 
, The other fields contain the character sequence to follow the ESCAPE # 

; characters: 

, US/UC = when the Shift and Command key are not pressed 

i SHIFT = when only the Shift key is still being pressed 

/ COMMAND = when only the Command key is still being pressed 

i C/S = when the Shift and Command keys are still being pressed 

ETABLE 

; KEYCODE FILL US/UC SHIFT COMMAND C/S 

DATA B *20, 0, '00', 'OA', '14', 'IE' i FUNCTION KEY 1 

DATA. B *21, 0, '01', 'OB', '15', 'IF' i FUNCTION KEY 2 


31 



DATA. B 

*22. 

0, 

'02 ', 

'OC ', 

' 16'- 

'20 ' 

i FUNCTION KEY 

3 

DATA. B 

*23. 

0, 

'03 ', 

'OD', 

' 17 ', 

'21 ' 

FUNCTION KEY 

4 

DATA. B 

*24. 

0, 

'04 ', 

'OE ', 

'IB', 

'22' 

FUNCTION KEY 

3 

DATA. B 

*4A. 

0, 

'FF ', 

'FF ', 

'FF', 

'FF ' 

LEFT COMMAND 

(CLOSURE-) 

DATA. B 

*58. 

0, 

'05 ', 

'OF ', 

'19', 

'23' 

FUNCTION KEY 

6 

DATA B 

*59, 

0, 

' 06 ' , 

'10', 

'lA', 

'24 ' 

FUNCTION KEY 

7 

DATA. B 

*5A, 

0, 

'07 ', 

'11', 

'IB', 

'20' 

FUNCTION KEY 

8 

DATA. B 

*5B, 

0, 

'08 ', 

'12', 

'1C ', 

'26 ' 

FUNCTION KEY 

9 

DATA B 

*5C, 

0, 

'09 ', 

'13', 

'll)'. 

'27' , 

FUNCTION KEY 

10 

DATA B 

*CA, 

0, 

'FE ', 

'FE', 

'FE', 

'FE' , 

LEFT COMMAND 

(RELEASE-:) 
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, STANDARD MULTIPLE CHARACTER SEQUENCE TABLE 
i FORMAT : ( KEYCODE, LENGTH, CHARACTER_SEQUENCE ) 

i Used on Closure when a »9E is in the Kegcode entry of the Shift or 
/ Regoliir Table, 

i The LENGTH field is the number of characters in the CHARACTER SEQUENCE field 
; The CHARACTER SEQUENCE is the characters to return for the Keyr.ode 

SMTABLE 


ViEYCODE Li- NOTH CHARACTER SEQUENCE 


DATA B 

*00/ 

2/ 

«1B. *43 

CURSOR RIGHT 


DATA B 

*03/ 

2/ 

*1B. *48 

HOME UP 


DATA. B 

*07. 

2/ 

»1B, *64 

ENTER 


DATA B 

*08/ 

2. 

»1B, *44 

CURSOR LEFT 


DATA. B 

*03/ 

2/ 

*1B, *42 

CURSOR DOWN 


DATA B 

*3A/ 

2/ 

*1B, *69 

BACK TAB 


DATA B 

*30/ 

2. 

*1B, *41 

CURSOR UP 


DATA B 

*4E. 

2/ 

*30, *30 

DOUBLE ZERO-( 

00 KEY ) 

DATA B 

*FF/ 

0 


NULL KEYCODE 

- END OF TABLE 


page 

RELEASE TABLE 

FORMAT : ( KEYCODE, ACTION, CODE ) 


Used on all Release keycodes. 


The action code describes the type of key: 

7D = return an Escape Sharp Sequence for this 
9E = a Qualifier key 
all other = character code to return 


k ey c od e 


RLTABLE 

DATA. B 
DATA. B 
DATA B 
DATA B 
DATA. B 


KEYCODE 

*1F, 

*3C, 

*3E, 

*48. 

*49. 


ACTION CODE 

*9E .RIGHT SHIFT 
*9E i CAPS LOCK 

*9E i LEFT SHIFT 

*9E ; CONTROL 

*9E i FAST 


H2 - 



DATA B *4A, *9E i LEFT COMMAND 

DATA. B $4C, *9E /ALTERNATE 

DATA. B *FF, *00 i NULL KEYCODE - END OF TABLE 


, BREAK KEYCODE TABl E 

I SINGLE BYTE TABLE THIS IS THE KEYCODE WHICH CAUSES START/STOP. 

: Used on all keyrodes. 

i The Tiller is to keep the file on an even byte boundary 
BKEYCOD DATA. B *DF, 0 , BREAK CLOSURE KEYCODE, FILLER 

i 

LENGTH EGU ‘/.-VERSION /LENGTH OF DATA AFTER TRANSLATION TABLE 

END B1 ART 
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8.0 Program CSK. GRMN. TEXT listing 


; THIS FILE CONTAINS THE TABLES FOR THE KEYBOARD DRIVER FOR THE VERSION 
i 03 German KEYBOARD (Selectric style with ALT key). 

i NOTE: 

i Because this document u/as printed on a standard ASCII printer; 
i special German characters are printed as ASCII characters. 

i file : csk. grmn. text 

; date : 05-0ct-82 kb 

i TRANSLATION TABLE 

TRANTBL 

DATA, L STABLE - TRANTBL i POINTER TO SHIFT TABLE 

DATA. L RTABLE - TRANTBL i POINTER TO REGULAR TABLE 

DATA. L STABLE - TRANTBL i POINTER TO ESCAPE # TABLE 

DATA. L SMTABLE- TRANTBL i PTR TO STANDARD MULT CHAR TABLE 

DATA. L CQTABLE- TRANTBL -’POINTER TO CAP/QUALIFIER TABLE 

DATA. L RLTABLE- TRANTBL i POINTER TO RELEASE TABLE 

DATA. L BKEYCOD- TRANTBL ; POINTER TO BREAK KEYCODE TABLE 

; LENGTH OF FILE DATA AFTER TRANSLATION TABLE 

DATA. W LENGTH 

i VERSION DATE 

i 

VERSION DATA. B '0310S2' - ddmmyy - day month year 

START , RTS 

page' 

i NOTE : 

i All the tables have keycodes uilth the closure/release bit (MSB) of the 
i Keycode cl ear (0)- except the Break Keycode Table. 

) THE SHIFT TABLE 

i TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE CHARACTER 

i CODE FOR THE CORRESPONDING KEYCODE. 

- Used on Closure only luhen Shift key Is still depressed (Shift flag is set). 

- The character symbol is above each character code 

- SMC •= special value far Standard Multiple Character Sequence ($9E) 

i QUL = special value for Qualifier (!f9F) 

- EST = special value for Escape Sharp Character Sequence (*9D) 
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“ No key for this 


keycods 


STABLE 


DATA. B 

SMC 3 9 

»9E, *33, *39, 

DATA. B 

+ ... " 

*2B, *00, *22, 

DATA. B 

EST EST EST 
*90, *90, 990, 

DATA. B 

C W 

*40, *23, *37, 

DATA. B 

Si Z 

*5E, *26, *3A, 

DATA. B 

* ( I 

*2A, *28, *49, 

LSB 

0 1 2 

page 



SMC 6 , - cr SMC 

»9E, *36, *2C, *2D, *0D, *9E, 
del c r ' ... ) 

*7F, *OD, 93A, *60, *00, *29, 

EST EST * 

*9D, *90, *00, *00, *00, *24, 
E S D X C esc 
*43, *53, *44, *38, *43, *1B, 
U H J N M QUL 
*35, *48, *4A, *4E, *40, *9F, 
□ K L. C > EST 
»4F, *4B, *4C, *3C, *3E, *90, 
3 4 3 6 7 8 


1 7 SMC 4832 

*31, *37, *9E, *34, *38, *35, *32 
? P _ O U A OUl. 
*3F, *30, *3F, *3C, *30, *5B, *9F 
7. R T F G V B 
*23, *52, *34, *46, *47, *36, *42 
! SMC Q QUL A QUL Y 
*21, *9E, *51, *9F, *41, 99F, *39 
QUL QUL sp QUL O SMC 
*9F, *9F, *20, *9F, *30, *9E, *2E 
EST EST EST EST SMC EST EST 
*90, *90, *90, *90, *9E, *9F, »9F 
9 A B C 0 E F 


THE REGULAR TABLE - UNSHIFTED OR LOWER CASE 

TABLE IS INOEXED BY KEYCOOE. EACH BYTE REPRESENTS THE CHARACTER 
CODE FOR THE CORRESPONDING KEYCODE. 


i Used on Closure only uhen Shift key is released (Shift flag is clear). 

i 

i The character symtrol is above each character code 

i SMC ” special value for Standard Multiple Character Sequence <*9E) 

i QUL “ special value for Qualifier <*9F) 

1 EST = special value for Escape Sharp Character Sequence (990) 

I . . . « No key for this keycode 

i 

RTABLE 


I 


DATA. 

B 

SMC 

*9E, 

DATA. 

B 

ms 

*30, 

DATA. 

B 

EST 

*90, 

DATA. 

B 

2 

*32, 

DATA. 

B 

6 

*36, 

DATA. 

B 

8 

*38, 

LSB 


0 


3 9 SMC 6 , - cr SMC 1 7 SMC 4 

*33, *39, *9E, *36, *2C, *20, *00, *9E, *31, *37, *9E, *34, 

. . . ' bs cr i z , . , O / p - o 

*00, *27, *08, *00, *3B, *7E, *00, *30, *2F, *70, *20, *7C, 

EST EST EST EST 4 3 r t f 

*90, *90, *90, *90, *00, *00, *00, *34, *33, *72, *74, *66, 

3 ui e s d X cescl SMC q QUL 

*33, *77, *65, *73, *64, *78, *63, *IB, *31, *09, *71, *9F, 
7 z u h j n m QUL QUL QUL sp QUL 

•37, *7A, *75, *68, *6A, *6E, *60, »9F, *9F, *9F, *20, *9F, 
9 i o k 1 , EST EST EST EST EST 

*39, *69, *6F, *6B, *6C, *2C, *2E, *90, *90, *90, *90, *90, 
123456789A,BC 


8 5 2 

*38, *33, *32 
u a QUL 
*70, 473, *9F 
g V b 
*67, *76, *62 
a QUL y 
*61, *9F, *79 
0 SMC 
*30, *9E, *2E 
SMC EST EST 
*9E, *9F, *9F 
0 E F 


page 


THE CAPS/QUALIFIER FLAG TABLE 

TABLE IS INDEXED BY KEYCODE. EACH BYTE REPRESENTS THE ENTRY FOR 
THE CORRESPONDING KEYCODE. 


i MSB 

i *00 
i *10 

i *20 
i *30 
i *40 
1 *30 


; MSB 
/ *00 

i *10 

i *20 

i *30 
i *40 
f *30 
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I Used on Closure luhen a *9F is in the Kegcode entrg of the Shift or Regular 
/ Table> process a Qualifier. Also on Closure uhen the Cape Lock Keg is 

; being pressed (CapsLock flag is set). 

i Used on Release uhen a $9E action code is in the Kegcode entrg of the Release 

i Table. 

I Each bgte has 8 flags 

; D7 •: Caps lock flag uhen set means this kegcode generates a 

i shifted character uhen the Caps lock qualifier flag Is set. 

; D6 = Qualifier has an ESC # sequence flag. When set then must process 

; the kegcode as a non-repeating ESC * sequence. Also has a Release 

; sequence. 

i D5 - Command - 

i D4 = Alternate 

i D3 = Fast 

/ D2 = Caps lock 

; D1 = Control 

i DO = Shift 

CQTABLE 

i MSB 

DATA. B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 ; *00 

DATA. B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *00, *00, *00, *00, *01 ; *10 

DATA. B *00, *00, *00, *00, *00, *00, *00, *00, *00, *00, *80, *80, *80, *80, *80, *80 ; *20 

DATA B *00, *00, *80, *80, *80, *80, *80, *80, *00, *00, *00, *80, *04, *80, *01, *80 i *30 

DATA. B *00, *00, *80, *80, *80, *80, *80, *80, *02, *08, *60, *00, *10, *00, *00, *00 i *40 

DATA B *00, *00, *80, *80, *80, *80, *00, *00, *00, *00, *00, *00, *00, *00, *00, *00 i *30 

i LSB 012 34S6789ABCDEF 

page 

i ESCAPE SHARP (#) SEQUENCE TABLE 

, FORMAT : ( KEYCODE, FILLER, US/UC, SHIFT, COMMAND, C /S ) 

i Used on Closure uhen a *9D is in the Kegcode entrg of the Shift or 
i Regular Table. 

I Used on Release uhen a *90 action code is in the Kegcode entrg of 
} the Release Table. Releas kegcode has high order bit set. 

i The fill field is added to keep each record on an even bgte boundarg 
i The other fields contain the character sequence to follou the ESCAPE # 
i characters: 

i US/UC = uhen the Shift and Command keg are not pressed 

i SHIFT = uhen onlg the Shift keg is still being pressed 

i COMMAND = uhen onlg the Command keg is still being pressed 

i C/5 = uhen the Shift and Command kegs are still being pressed 

ETABLE 

i KEYCODE FILL US/UC SHIFT COMMAND C/S 

DATA. B *20, 0, '00', 'OA', '14', 'IE' ( FUNCTION KEY 1 

DATA. B *21, 0, '01', 'OB', '13', 'IF' i FUNCTION KEY 2 


This bit sags uhich tgpe of Qualifier 
keg the Kegcode represents. 
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DATA. B 

*22, 

0. 

'OS', 

'OC ', 

'16'f 

'20 ' 

j FUNCTION KEY 

3 

DATA. B 

*23, 

Q. 

'03' . 

'OD ', 

' 17 ', 

'21 ' 

; FUNCTION KEY 

4 

DATA. B 

*24, 

0, 

'04 'f 

'OE ', 

'18', 

'22 ' 

(FUNCTION KEY 

5 

DATA. B 

*4A, 

0, 

' FF ' , 

'FF ', 

'FF', 

'FF ' 

; LEFT COMMAND 

(OLDSURH 

DATA. B 

*53, 

0. 

'05 'f 

'OF ', 

' 19 

'23 ' 

.FUNCTION KEY 

6 

DATA. B 

*59, 

0, 

'06 'f 

' 10 ', 

' lA ', 

'24' 

(FUNCTION KEY 

7 

DATA. B 

*5A, 

Oi 

'07 

'11', 

' IB 

'25 ' 

(FUNCTION KEY 

8 

DATA. B 

*5B, 

0, 

'08 

'12', 

'10', 

'26 ' 

( FUNC T I ON KEY 

9 

DATA. B 

*5C, 

0, 

'09 ' , 

' 13 ', 

'll)', 

'27 ' 

(FUNCTION KEY 

10 

DATA B 

*CA, 

0, 

'FE ', 

'FE ', 

'FF'. 

'FE ' 

, LEFT COMMAND 

(RELEASE! 
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; STANDARD NULTIPLE CHARACTER SEQUENCE TABLE 
, FORMAT : ( KEYCODE, LENGTH, CHARAC:TER_SEQUENCE ) 

i Used on Closure when a *9E is in the Keyccide entry of the Shift or 
. Regular Table. 

i The LENGTH field is the number of characters in the CHARACTER SEQUE:NCF f i a ,l d . 
; The CHARACTER SEQUENCE is the characters to return for the Keycode. 

SMTABLE 


flEYCODE LENGTH CHARACTER SEQUENCE 


DATA B 

*00, 

2, 

*1 E, *43 

CURSOR RIGHT 


DATA B 

*03, 

2, 

*1B, *48 

HONE UP 


DATA. B 

*07, 

2, 

*1B, *64 

ENTER 


DATA. B 

*08, 

2, 

*13, *44 

CURSOR LEFT 


DATA. B 

*0B, 

2, 

»1B, *42 

CURSOR DOWN 


DATA. B 

*3A, 

2, 

*1B, *69 

BACK TAB 


DATA. B 

*5D, 


*1B, *41 

CURSOR UP 


DATA. B 

*4E, 

2, 

*30, *30 

DOUBLE ZERD-( 

00 KEY 1 

DATA. B 

*FF, 

0 


NULL KEYCODE 

- END OF table: 
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i RELEASE TABLE 

i FORMAT : ( KEYCODE, ACT ION, CODE ) 

i Used on all Release keycodes. 
i The action code describes the type of key: 

i 9D = return an Escape Sharp Sequence for this keycode 

i 9E = a Qualifier key 

:all other = character code to return 

RLTABLE 

; KEYCODE 

DATA. B *1F, 

DATA. B *OC, 

DATA. B *3E, 

DATA. B *48, 

DATA. B *49, 


- CHS - 


ACTION CODF:: 

*9E i RIGHT SHIFT 
*9E i CAPS LOCK 
*9E i I EFT SHIFT 
»9E ; CONTROl 

*9E i FAST 



DATA B 'S4A. *9E ,LEFT COMMAND 

DATA B 44C, *9E /ALTERNATE 

DATA. B *FF, *00 / NULL KEYCODE - END OF TABLE 


. BREAK KEYCODE TABLE 

, SINGLE BYTE TABLE. THIS IS THE KEYCODE WHICH CAUSES START/STOP 

I Used on all keij codes. 

. The filler is to keep the file on an even byte boundary 

BKEYCOD DATA. B *DF,0 /BREAK CLOSURE KEYCODE, F I LLER 

LENGTH EQU ’/.-VERSION /LENGTH OF DATA AFTER TRANSLATION TABLE 

END START 




